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län Text/64, eine professionelle Text 


ine der wichtigsten Anwendungen für £o 
Pinnvolle und komfortable IeHROSRarna 
euren Geräten möglich ist, versucht SM- 
zu beweisen. 
Ber Hunsch, mit dem Commodore 64 eine Ve 
zuführen, wird sicherlich ın jedem Sder 
Fein System um einen Drucker bereichert 


Pa _ die Textausgabe mittels Print finweis 


ngesehen wird, Steht man bald vor der EB 
Kenzsprogr ann zu kaufen. Das in ser Reih 
ene 


M-Text verspricht diese Aufgabe 


önnen. 
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Hick-Hack 


Da gibt es ein Kopierpro- 
gramm, mit dem man die 
1541-Floppy in knapp 5 Minuten 
formatieren und kopieren kann. 
Das geht also wesentlich schnel- 
ler als nach dem Original-Com- 
modore-Modus und bietet für 
viele die ersehnte Arbeitser- 
leichterung. Leider kann man 
damit nicht nur die eigene Är- 
beit rationalisieren, sondern 
auch fremde Programme kopie- 
ren. Vorstellen oder totschwei- 
gen? Man kann in einer Schlos- 
serzeitung nicht das Thema 
Schloß und Schlüssel mit der Be- 
gründung ignorieren, die Zei- 
tung könne ja auch von Einbre- 
chern gelesen werden. Ände- 
rerseits wird eindeutig zuviel ko- 
piert, was nicht kopiert werden 
dürfte — da müssen die Hilfsmit- 
tel nicht unbedingt in allen De- 
tails beschrieben werden. Für 
viele Könner stellt allerdings 
das Knacken einesList- oder Ko- 
pierschutzes eine denksportarti- 
ge Herausforderung dar — un- 
ehrliche Ziele werden nicht ver- 
folgt 

Sollte man also Kopierverfah- 
ren und Knacktechniken nicht 
lieber offenlegen — wenn man 
sie schon nicht mit Simsalabim 
verschwinden lassen kann? Am 
besten kann sich ja jeder vor Ri- 
siken schützen, wenn er die Ge- 
fahren genau kennt (und gege- 
benenfalls die Strafen). Die 
Mehrzahl der iin Deutschland zu- 
gelassenen Autos dürfte aufSpit- 
zengesch digkeiten über 140 
km/h kommen. Man darf sie oh- 
ne weiteres auch in der Stadt 
oder auf der Landstraße benut- 
zen — vom Autofahrer wird ganz 
selbstverständlich verlangt, daß 
er sich an die jeweils geltenden 
Geschwindigkeitsbegrenzun- 
gen hält. Warum sollte man vom 
Computerbenutzer soviel weni- 
ger verlangen können als vom 
Autofahrer? Auch wenn esnoch 
keinen Computerführerschein 
und kein Byte-Radar gibt. 

















M. Pauly, Chefredakteur 
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A n erster Stelle sind selbst- 
verständlich die beiden 
neuen Heimcomputer C 16 
und C 264zunennen. Offiziell 
wurden sie erstauf der Mes- 
se vorgestellt. Die S4’er Re- 
daktıon hat aber den C 264 
bereits in der letzten ÄAusga- 
be getestet (Bild ]), der © 16 
(Bild 2) beziehungsweise C 





Bild 1. Der C 264 mit neuem Joystick 


116 wird in dieser Ausgabe 
behandelt. Dieser C 16 (die 
Version © 1l$mitder Gummi- 
tastatur wird in Deutschland 
voraussichtlich nicht ange- 
boten werden) weist ein äu- 
Berst günstiges Preis/Lei- 
stungsverhältnis auf, er wird 
etwa 350 Mark kosten. Die 
Zielrichtung des © 18 ist laut 


Alwin Stumpf, Geschäfts- 
führer von Commodore 
Deutschland, den Compu- 
ter-Änwender von morgen 
schon heute mit Computern 
vertrautzumachen.DerC 16, 
ausgestattet mit 16 KByte 
RAMund32KByteROMund 
der erweiterten Basic- 
Version 3.5, einer »physikali- 
schen« Cursorsteuerung, ei- 
nem Format das kleiner als 
AÄ4 ist, einer Schreibma- 
schinen-Tastatur, mit Umstel- 
lungsmöglichkeit von 40 Zei- 
chen x 25 Zeilen und 121 
Farbtönen, einem Synthesi- 
zer mit jeweils einem Ton- 
und Rauschgenerator und 
der Aus/Eingabe über se- 
rielle Schnittstelle, zwei Joy- 
stickports (allerdings mit 
neuartigen Anschlüssen), 
Video- und TV-Anschluß so- 
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wie dem Kassettenport, soll 
eine sinnvolle Abrundung 


der Commodore-Palette 
nach unten realisieren. In- 
wieweit der C 16 den VC 20 
ersetzen oder ablösen wird 
ist fraglich, zumindest je- 


doch zu vermuten. 


C 16 und C 264 
— die neuen 
Renner? 


Praktisch als Gegenpol 
soll der neue © 264 laut Ha- 
rald Speyer, Vice President 
des Unternehmens, berufli- 
chen Zwecken dienen und 
den Marktnach oben hin ab- 
decken. Zu diesem Bereich 
gehören zum Beispiel Datei- 
verwaltung, Textverarbei- 











tung, Tabellenkalkulation 
und Lösungen zu Steuer-, 
Finanzierungs- und Versi- 
cherungsfragen, sowie 
Grafik- und Window-Fähig- 
keit und zwar zu Hause wie 
im Büro. All diese Funktio- 
nen soll der C 264 mit Hilfe 
des Softwarepakets »Magic 
Desk« — als Modul oder Dis- 
kette ladefähigq — bewälti- 
gen können. Dieses und wei- 
tere Programme sollen künf- 
tig wahlweise auch gleich in 
der Hardware eingebaut be- 





zogen werden können (soge- 
nannte integrierte Software). 
Die Unterschiede zum C 64 
und © 16 wie etwa 64 KByte 
RAM (davon 60 KByte für Ba- 
sic), Synthesizer mit zwei 


gi 3- mit dem 


Tongeneratoren und einem 
Rauschgenerator, die Audio- 
schnittstelle, Sprites und der 
Maschinensprach-Monitor 
können Sie im Testbericht 
nachlesen. Die gesamte Pe- 
ripherie vom C 64 wird auch 
mit dem © 264 nutzbar sein. 
Commodore sieht den C 264 
nicht als Konkurrenz für den 
C 64, sondern als Ergänzung 
nach oben hin. Der Preis 
wird sich demzufolge auch 
etwas noch oben verschie- 
ben und wohlin der Gegend 


N n 
MCs go1 farbig drucke® 





von 1200 Mark zuliegen kom- 
men 

Nun gibt es auch von Com- 
modore einen Farbdrucker 
(Bild 3). Dieser Color- 
Matrixärucker MCS 801 ver- 
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fügt über folgende Charak- 
teristika: 

7 Farben, serielles Commo- 
dore-Interface, 50 Zeichen 
pro Sekunde, mit maximal 
vier Floppy-Laufwerken 
funktionsfähig, Groß/Klein- 
schreibung sowie Grafikzei- 
chen. Der Preis wird sich 
wohl beizirka 1500 Mark ein- 
pendeln. 


Drei neue Drucker 


Der Typenradrucker DPS 
1101 (DPS steht für Daisy 
Wheel Printer System; Bild 4) 


entspricht hinsichtlich Be- 


dienerfreundlichkeit, 
Druckqualıtätund des Verar- 
beitungskomforts dem Stand 
der Technik. Er bietet bidi- 
rektionale Druckweise mit 
Triumph Adler-kompatiblen 
Typenrädern, druckt bis zu 


18 Zeichen in der Sekunde, 


und beherrscht Proportio- 
nalschrift; die maximale 
Breite inklusive Traktorfüh- 
rung beträgt 13 Zoll, es las- 


‚sen sich bis zu zwei Kopien 


erzeugen und er ist sowohl 


an VC 20, C 64und C264an- 
schließbar. Mit rund 2000. 


Mark liegt er noch am unte- 

ren Rand der Preisskala. 
Außerdem werden dem- 

nächst noch zwei neue Ma- 


trixdrucker, der MPS 802 und 


803 (Bilder 5 und 6) auf den 
Markt kommen. Über diese 
beiden Drucker war aller- 
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dings aufder Hannover Mes- 
‚senochnicht vielzu: erfahren. 
Daß durch ein Modul im 


Wert von 250 Mark der Com- 


modore 64 (250 000 Exempla- 


re sind mittlerweile in der 


Bundesrepublik im Einsatz) 
 Btx-fähig wird, sofern ein 
Farbfernsehgerät mit ‚einem 
CEPT-Dekoder vorhandeni ist 
Bild 7, mit einem Loewe- 


Gerät), haben wir schon i in 


der letzten Ausgabe be 
schrieben. Die Vorteile die- 


ser Lösung sind die Speiche- 

rung der Btx-Seiten auf Flop- 
 py und die Off-line-Benut- 

zung des Btx-Netzes. Das 


‚heißt, sie können die AÄntwort- 
seiten ohne Zeitdruck ausfül- 
len und so die üblichen Feh- 
lerraten reduzieren. - 

Sicher werden sich einige 
gewundert haben, warum 


Bild 6, u 
Der Malrigärgog ps 803 


bei dem Programm Magic 
Desk die einzelnen Symbole 
für Schreibmaschine, 
Drucker oder Papierkorb so 
groß ausgefallen ‚sind. Die 


- "Erklärung ist, daß nun auch 


ein Touch- -Panel (Bild 8) auf 


den Farbmonitor 1701/1702 


aufgesteckt werden kann. 
‚Dadurch lassen sich nun die 
einzelnen Funktionen durch 


Bild 8. Durch das 
Touch-Panel wird de 
\eier endlich »de- 


schreiblöwen, 






























ae ‚Speziell für den eh 


"Schule, Aus- und Fortbildung 
ergab sich durch die Zusam- 
menarbeit von. . Commodore 
"mit dem Schulbuch-Verlag 
Westermann eine ganze 
Menge an neuen "Lernpro- 
grammen. So gibt: es jetzt für 
den C 64 einen Recht 
einen Be In 
‚chenlöwen (mit den vier 
Grundrechenarten) für das 
zweite und dritte Schuljahr, 
ein  Mathematikprogramm 
für das erste Schuljahr, die 
‚leicht zu Srlemenasr, ?ro- 





Kassetten- 
Betriebssystem 
für Commodore 64 


Unter der Bezeichnung 
ACOS+ (Advanced Casset- 
te Operating System) ‚bietet 
die Firma Melboume House 
ein umfangreiches Utility- 
Paket für den C 64 an. Kern- 
stück von ACOS+ ist ein 
neuartiges Betriebssystem 
für die Datassette, das alle 
Kassettenoperationen we- 
sentlich beschleunigt. Ähn- 
lich wie bei einer Diskette 
wird ein Directory am An- 
fang jeder Kassette aufge- 
zeichnet. Nach Auswahl 
eines Programms spult 
ACOS+ automatisch mittels 
schnellen Vorlaufs bis zur 
‚entsprechenden Bandstelle 
. vor und lädt das gewünschte 
Programm. Daneben enthält 
ACOS+ zahlreiche weitere 
Hilfsmittel für Spritesteue- 
rung, Tonerzeugung und 
Grafik sowie eine Reihe wei- 
terer Utilities. 

Info: Melbourne: House Publishers) Ud., 


' Castie Yard House, Castle Yard, Richmond 
._ TWI06TF (USA), Tel. 01-940.5084. 
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grammiersprache Logo und 
als Ergänzung dazu Logo- 
Grafik mit dem durch einfa- 
che Befehle komplexe 
Zeichnungen erstellt wer- 
den können. Durch diese Ini- 
tiative soll der doch erhebli- 
che Nachholbedarf im com- 
putergestützten Lernen in 
Deutschland überwunden 
werden. Dazu sollen auchei- 
ne Reihe von Lehr- und Ar- 
beitsbüchern beitragen, so 
zum Beispiel »Logo« (Band 3, 
aus der neuen Commodore- 
Buchreihe), ein Lexikon und 


»Werkzeug« für den Lerm- 


denden im Umgang mit der 
Programmiersprache Logo. 
Natürlich hatte Commodo- 


re nicht nur Neuigkeiten auf 





Neuer 6502-Editor/ 
Assembler 


Von Profisoft, gibt es jetzt 
ein neues Editor/Assem- 
bler-Paket speziell für den C 
64. Das Programmpaket ent- 
hält einen komfortablen 
2-Pass-Assembler, einen er- 
weiterten Editor, einen Dis- 
assembler sowie einen Ma- 
schinensprachemonitor für 
direkten Speicherzugriff. 
Der Assembler unterstützt 
den vollen 6502/6510-Be- 
fehlssatz. Der sehr komforta- 
ble Editor bietet eine Viel- 
zahl von Funktionen zur 
Bearbeitung von Assembler- 
Quellprogrammen, kann 
aber auch für Basic-Pro- 
gramme eingesetzt werden. 
Alle Editorfunktionen sind 
direkt von Basic aus erreich- 
bar. Der Disassembler er- 
möglichtt die Definition 
eigener Label und erzeugt 
assemblierbaren Quellcode. 

Der Editor/Assembler 
wird wahlweise auf Kassette 
oder Diskette geliefert. 

Info: Profisoft, Sutthauser Str. 50/52. 4500 
Osnabrück, Tel. (0541) 53905 
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dem Heimcomputer-Sektor 
anzubieten. Besondere Be- 
achtung fand auch der IBM- 
kompatible Commodore PC. 
Wer darüber genauere In- 
formationenhaben will, kann 
einen ersten Testbericht in 
Computer persönlich, Aus- 
gabe 11, lesen. Endgültig zu 
haben wird der tragbare 
16-Bit-Computer wohl aber 
erst im Herbst sein. 

Speziell für den kommer- 
ziellen Markt kreierte Com- 
modore den CBM 8296, eine 
Weiterentwicklung des alt 
bewährten CBM 8032/80986. 
Er ist ausgestattet mit 128 
KByte RAM; das Betriebssy- 


Bild 7. Der Commodore 
64 kann als intelligente 
Tastatur für die Bearbei- 
tung von Btx-Seiten ein- 
gesetzt werden. Die 
Abspeicherung auf die 
Floppy Ist dabel möglich 


stem LOS-96 gehört zum Lie- 
ferstandard, Programmier- 
sprachen sind TCL-Pascal, 
UCSD-Pascal, Comalund As- 
sembler, — wählbar sind 
ASCI- oder DIN-Tastatur, die 
Tastatur ist frei beweglich. 
Mit dem CBM Z 8000 prä- 
sentiert Commodore eine 
neue Computerfamilie die in 
der Standardversion den Än- 
schluß von zwei Ärbeitsplät- 
zen gestattet; spätere Aus- 
baustufen sollen die Verbin- 
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dung mit acht und mehr Ter- 
minals, ermöglichen. Der Z 
8000 stelltalso eingehobenes 
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ur 


16-Bit-Multi-User-System das 
unter dem UNIX 7 angepaß- 
ten Coherent-Betriebsystem 
COHOS läuft, dar. Weitere 
Kennzeichen sind 256 KByte 
RAM minimale Speicherka- 
pazität, Programmierspra- 
chen wie Basic, Pilot, Assem- 
bler und C-Compiler optio- 
nal, ein monochromer Bild- 
schirm mit einer Auflösung 


von 1024 x 1024 Punkten, zwei 
programmierbare RS 232- 
Schnittstellen, selbstver- 
ständlich das IEEE/84-Inter- 
face eine optionale 10- 
MByte-Festplatte, 1,3 MByte- 
Floppy, arithmetischer Ko- 
prozessor Z 8070 und Maus- 
Anschluß. 





Commodore 
forever? 


Commodore hat also auf 
der Messe voll zugeschla- 


gen. Nach meiner persönli- 
chen Beurteilung war kein 
anderer Stand derart über- 
laufen, erregte kein anderes 
Unternehmen dieses Aufse- 
hen. Mit Commodore wird 
also auch in der Zukunft zu 
rechnen sein. (aa) 
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Nach eigenem Empfinden 
machen sich die Raubko- 
pierer die Hände nicht 
schmutzig 












Wer hat nicht schon selbst 
Programme zumindest gesehen, 
in denen die Kürzel 
Jedi, KBR, Kotzbrocken, Oleander, 
oder 1103, oder Nachrichten 
wie »Brooken by Antiram. 
Greetings to Zeropage 
and Superman« von der dunklen 
Herkunft zeugen? 
Wir haben uns in den Untergrund 
begeben und mit der 
»High Society« der deutschen Knacker 
gesprochen. Die Greme de la creme der Knacker, rund ein 
Dutzend Leute, haben sich zu einem »Club« 
zusammengeschlossen. 
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as wohl überraschendste 
Ergebnis dieses Inter- 
views dürfte die Aussage der 
Knacker sein, künftig mit ei- 
nigen Händlern zusammen- 
arbeitenzu wollen. Wiekann 
es dazu kommen, daß die 
eschädigten mit den Schä- 

] ooperieren?Einder- 
s »Gentleman Agree- 

jent« wird nur geschlossen 
werden nn beide Seiten 
einen gewissen Vorteil dar- 
nnen. Der Vor- 

teil für die Knacker ist offen- 
sichtlich. Sie werden direkt 
von den Händlern mit der 
uesten Software versorgt. 
cker versprechenim 
gdiese Programme 

dest eine Zeitlang 
veiter zu verbreiten, 

m engsten Kreis. 

Somit hat der Händler eine 
1 Zeitspanne 

das Pro- 

nden 


das geht nur, wenn es noch 
I f dem Schwarzmarkt 

ben ist. Außerdem be- 

ihn die Knacker, wel- 
che Programmeer sich aus 
den USA oder England be- 
sorgen soll. Die Knacker ha- 


ben’ja die meiste Erfahrung 
und oft.auch die besseren 
il wissen 


eresgibtauch 

re Sorte, die 

cht diesem Abkom- 
geschlossen 


Eine Folge der unerlaubten Weitergabe 
von Programmen kann die oben 
dargestellte sein 
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die Raubko- 

pierer. Umden 
Unterschied aufzuzeigen soll 
eine Definition der Knacker 
verwendet werden. Origi- 
nalton: 

»Knacker oder Cracker 
sind Leute, die den Kopier- 
schutz entfernen, so daß man 
das Programm einfach mit 
LOAD und SAVE vervielfälti- 
gen kann. Zudem werden die 
Programme »komprimiert«, 
das heißt die platzaufwendi- 
ge Abspeicherung des Orgi- 
nals wird reduziert, damit aus 
Gründen der Übersichtlich- 
keit mehr Spiele auf eine Dis- 
kette passen (kein Wunder 
bei mehr als tausend Pro- 
grammen). 

Kopierer hingegen haben 
spezielle Kopierprogramme 
(Block-Copy, F-Copy), mit de- 
nen der Kopierschutz einfach 
mitübertragen wird. Die wol- 
len durch den Verkauf dieser 
Programme Geld machen. 

Und dann gibt es in 
Deutschland seit neuestem 
die Hacker. Diese dringen 
über Modem und Akustik- 
koppler in Datenbanken an- 
derer Leute ein und schauen 
sich da ein bißchen um. Bei 
Eduscho werden sich, so ha- 
ben wir gehört, in nächster 
Zeit einige Leute über eine 
unerwartete Gehaltserhö- 
hung freuen können. Es gibt 
mittlerweile sogar ein eige- 
nes Magazin, die Daten- 
schleuder vom Chaos Com- 
puter Club in Hamburg. Da 
stehen prima Tips und Tele- 
fonnummern drin.« 

Nach dieser kurzen Dar- 
stellung, wer eigentlich was 
macht, folgt nun ein Auszug 
aus dem Interview mit vier 
Meister-Knackern. Sie haben 
sehr freimütig aus ihrem Me- 
tier erzählt. Aus verständli- 
chen Gründen können wir 
keine Namen nennen. 

Frage: Wie sind diese Kopierer ei- 
gentlich an die Kopierprogramme ge- 
kommen? 

Tja, die Kopierprogramme 
stammen von Leuten, die Ma- 
schine können (das heißt, 
sehr gut in Maschinenspra- 
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che programmieren), aber 
über keine so guten Bezie- 
hungen zu den Händlern ver- 
fügen. Die haben sie dann an 
Leute gegeben, die gute Be- 
ziehungen zu den Firmen, 
aber nicht die Fähigkeiten 
hatten. Die haben dann zwar 
die begehrten Spiele, aber 
leider sind so die Kopierpro- 
gramme auf den Markt, ich 
meine natürlich den Schwarz- 
markt, gekommen. Früher 
war der Schwarzmarkt noch 
von den Knackern abhängig, 
doch jetzt sind leider die Ko- 
pierprogramme verbreitet.« 

Wenn bereits Programme im Umlauf 
sind die den Kopierschutz einfach mit- 
kopieren, hat es da überhaupt noch 
Sinn, Programme zu schützen? 

»In den USA werden die be- 
sten Knacker von den 
Software-Firmen aufgekauft, 
umeinen Kopierschutzfür de- 
ren Produkte zu schreiben. 
Die Knacker haben ja das 
Know-how. Wir haben auch 
schon einen Kopierschutz ge- 
macht, der nicht mit den gän- 
gigen Kopierprogrammen zu 
knacken ist. Wirbieten daher 
den Firmen unsere Mitarbeit 
an. Der Vorteil für die Firmen 
liegt klar auf der Hand. Nur 
noch die besseren Program- 
mierer können die neuesten 
Programme knacken und die 
wollen, zumindest was uns 
betrifft, mit den Händlern zu- 
sammenarbeiten. Ein guter 
Kopierschutz hat aber wenig 
Sinn, wenn andere Leute die 
Programme schon unge- 
schützt verbreiten. Wir hatten 
zum Beispiel die ungeschütz- 
te Version von Soccer von 
Commodore bereits ein hal- 
bes Jahr bevor es auf den 
Markt kam.« 

Vertreibt ihr noch geknackte Pro- 
gramme? 

»Früher haben wir schon ei- 
nıge Sachen verkauft, jetzt 
aber nicht mehr so. Ein biß- 
chen schon noch, wir haben 
zum Beispiel eine ziemlich 
hohe Telefonrechnung durch 
die ständigen Verbindungen 
mit den Freunden in ganz 
Deutschland. Der Informa- 
tionsfluß zwischen unsistsehr 


gut. Sobald einer ein neues 
Spiel hat, ist das innerhalb 
von einem Tag rum. Die Un- 
kosten müssen ja noch rein- 
kommen. Aber ansonsten 
tauschen wir nur im harten 
Kern. Profit wollen wir keinen 
machen.« 

Warum knackt ihr eigentlich Pro- 
gramme?» 

»Zum einen weil es einfach 
Spaß macht in fremden Pro- 
grammen rumzupfuschen, 
und zum anderen weil die 
Programme einfach viel zu 
teuer sind. Man kann nicht 
100 bis 150 Mark für ein Spiel- 
programm ausgeben und 
dann nach zwei oder drei Ta- 
genisteslangweilig. Wirsind 
Sammler, wir müssen haben. 
Je mehr desto besser und da 
kann man'sich das natürlich 
als Schüler oder Student 
nicht leisten. Also wird ein 
Spiel gekauft oder besorgt, 
geknackt und getauscht und 
schon haben sich die Kosten 
vermindert.« 


Wie ist eigentlich das Verhältnis 
von Spielprogrammen und ernsthaften 
Programmen in eurer Sammlung? 

»Wir haben hauptsächlich 
Spiele. Ernsthafte Program- 
me haben wir auch ein paar, 
aber nur so zum Hausge- 
brauch. Diese Programme 
sind auch oft zu komplex um 
sie ohne Anleitung sinnvoll 
einsetzenzukönnen. Wirsind 
Spieler. Am liebsten sind mir 
die Denkspiele und die Ab- 
enteuerspiele. Schießspiele 
werden schnell langweilig.« 

Welches sind die wichtigsten Werk- 
zeuge zum Knacken? 

»Natürlich ein bis zwei 
Computer, Monitore, Floppy- 
Laufwerke, und einige Tool- 
kits wie Maschinensprach- 
Monitore und ein guter Disk- 
Mon. Am wichtigsten ist aber 
ein großes Hirn.« 

Habt ihr eigentlich keine Gewissens- 
bisse? 

»Nein, keine, wieso 


Einige Firmen gehen mittlerweile ri- 
goros gegen die Raubkopierer und 


ehe Kenanzeigen 


mit den verlockenden 


Angeboten: Über 300 Programme für nur 
100 Mark. Daß 


hier manches nicht mit rechten 
Dingen zugeht, 


sieht auch der Laie — wenn zum 


piel dabeiste 


Eine Programmsamm- 
lung von 300 Programmen 
dürfte in der Regel durch 
Softwaretausch entstan- 
den sein. Kann man aber 
die derart erworbenen 
Programme weiterver- 
kaufen? Die Anwort lautet 
ganz klar: nein. Das Copy- 
right und die Vertriebs- 
rechte liegen bei der 
Herstellerfirma oder dem 


Vertreiber. Dennoch wird 
aus Sammlerleidenschaft 
oder wegen niederer Pro- 
fitgier fleißig kopiert und 
verkauft. Gegen private 
Kopier- und Tauschaktio- 
nen im Freundeskreis 
können die Firmen wegen 
der Unübersichtlichkeit 
des Marktesnur wenigun- 
ternehmen. Äber gegen 
Gewerbetreibende sind 





ht »alle Synapse 


Der Sumpf 





Knacker vor. Habt ihr da keine Angst 
erwischt zu werden? 

»Ich persönlich hab da kei- 
ne Bedenken. Ich kenn zum 
Beispiel den Datenschutzbe- 
auftragten von Deutschland 
und weiß daher ziemlich gut 
Bescheid. Wir halten uns 
auch jetzt mit den Anzeigen 
zurück und tauschen nur 
noch im eigenen Kreis. 

Aber ich kenn einen, der 
verdient 10 000 Mark im Mo- 
nat. Den hat jetzt Data Becker 
auf 6000 Mark verklagt. Die 
hat er halt gezahlt und ver- 
kauft in Zukunft keine Data 
Becker-Programme mehr. 
Mit den anderen Program- 
men macht er allerdings 
munter weiter und verdient 
damit auch nicht weniger. 

Esgibtaberauch Leute, die 
haben gerade erst angefan- 
gen und ein paar Programme 
verkauft, die stehen dann 


blöd da.Fürdiese Leuteistes 
schon gefährlich, die kennen 
sich noch nicht so gut aus, ha- 


ben nicht die richtigen Bezie- 
hungen und laufen dann in 
die Falle.« 

Ihr seid da cleverer, habt immer 
noch die Nase vorn? 

»Es ist sehr schwierig für 
die Verfolger in unseren 
Kreis einzudringen. Erstens 
sind diese Leute meist Er- 
wachsene und zweitens müß- 
ten sie sich auf dem System 
sehr gut auskennen, um mit- 
reden zu können. Wenn daso 
ein Kerl mit Krawatte und Än- 
zug in einen Laden kommt, in 
dem wir uns normalerweise 
treffen, und dann so komi- 
sche Fragenstelltob wir nicht 
dies oder jenes Programm 
hätten, dann packen wir halt 
ein und gehen wieder. Die 
stellen sich einfach zu blöd 
an.« 

Wenn es so nicht geht, und auch die 
Anzeigenfahndung nicht viel bringt, 
dann müßt ihr euch doch relativ sicher 
fühlen? 

»Tun wir auch. Die größte 
Gefahr sehe ich allerdings 





mit Zündstoff 






darin, daß eine Firma den 
Markt (gemeint ist natürlich 
wieder der Schwarzmarkt) 
beobachtet ohne etwaszuun- 
ternehmen. Kauft sich diese 
Firma dann jemanden ausun- 
serer Gruppe, sagen wir, sie 
bieten ihm 500 000 Mark. Da- 
für soll er als Kronzeuge vor 
Gericht gegen uns aussagen. 
Ich glaub schon, daß da eini- 
ge schwach werden würden. 
Soweit zu den Knackern. Bei 
den Raubkopieren hätten wir 
gar nichts dagegen, wenn ei- 
nige Profitmacher entfernt 
werden. Wir Hauptknacker 
wollen ja jetzt Rücksicht auf 
die Händler nehmen und 
nichtsmehr weitergeben. Die 
Firmen sollten aber auf der 
Suche nach den Schwarzko- 
pieren auch in den eigenen 
Reihen nachschauen. Da gibt 
es Leute die haben sich nur 
aus diesem Grund bei einer 
Firma einstellen lassen. Es 
gibt genug Beispiele, wir ken- 
nen aber keine Namen.« 


geht die Angelegenheit 
zum Rechtsanwalt, der 
den Streitwert festlegt und 
den Kopierer zur Anzeige 


Ihr habt doch mittlerweile ziemlich 
viel Ahnung vom Porgrammieren. Reift 
da nicht der Wunsch einmal selbst gu- 
te Spielprogramme zu schreiben? 

»Momentan noch nicht, das 
ist einfach zuviel Aufwand. 
Wir haben noch einiges wie 
Schule oder Studium neben- 
her zu erledigen. Äber am 
liebsten würde ich mich mit 
einer Menge Cola und Chips 
in ein Zimmer verbarrikadie- 
ren, ein gutes Spiel program- 
mieren und damit 1,5 Millio- 
nen machen. Dann nichts 
mehr tun, vollständig relaxen 
und das Geld ausgeben. Ist 
das Geld aufgebraucht, wie- 
der ins Zimmer, ein Pro- 
gramm schreiben ...« 

Wir danken den Knackern 
für dieses Gespräch. Dieser 
Artikel sollte nicht als An- 
regung zum Programmknak- 
ken dienen, sondern ledig- 
lich einen kleinen Einblick in 
die Knackerszene vermitteln. 


(aa) 











der Taschengeldaufbes- 
serung gewarnt werden. 
Den Profitmachern unter 
den Raubkopierern soll 
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oder »alle Original-Programme von 


mittlerweile einige Schrit- 
te eingeleitet worden. 
Data Becker zeichnet 
sich dabei besonders aus. 
Es werden alle Kleinanzei- 
gen in sämtlichen Fach- 
zeitschriften mit der EDV 
erfaßt und ausgewertet. 
Taucht dabei ein Anbieter 
mehr als zweimal auf, läßt 
mansich den Katalog oder 
die Liste zuschicken. Die 












Empfangsadresse befin- 
det sich natürlich nicht in 
Düsseldorf. Sodann wer- 
den einige Testkäufe 
durchgeführt und bei po- 
sitivem Ergebnis eine Un- 
terlassungserklärung an 
den Übeltäter geschickt. 
Hat der Raubkopierer die- 
se unterschrieben und 
verkauft dennoch weiter 
oder reagiert nicht, so 





































heblich. Dabei wird keine 
Rücksicht aufdas Alter ge- 
nommen. Bei jugendli- 
chen Tätern müssen eben 
deren Eltern für den Scha- 
den aufkommen. Selbst- 
verständlich wird die 
Geldstrafe auch von kei- 
ner Haftpflichtversiche- 
rung übernommen. 

Wie uns einige Anrufe 
von »Kindern« bestätigen 
wußten sie nicht wassieta- 
ten: »Ich hab doch nur ein 
paar Programme verkauft 
und jetztsollich5000Mark 
zahlen. Ich hab doch nicht 
gewußt, daß das strafbar 
ist. Das hat doch jeder 
gemacht.« 

Es kann also nur aus- 
drücklich vor dieser Art 






























die Firmen die Verluste 
aus den in kopierter Form 
in Umlauf gebrachten Pro- 
grammen wieder wettma- 
chen, und das geht nur 
über den Preis. Traurig 
dabei ist aber, daß durch 
diese Profitgeier die Ju- 
gendlichen und Kinder 
animiert werden, dassel- 
be zu tun. Diese werden 
dann mit der gleichen 
Härte bestraft wie die Pro- 
fis. So kann sehr schnell 
ein Leben zerstört wer- 
den, noch bevor es ange- 
fangen hateinszu werden. 
(aa) 
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Wieso kommt beim Arbeiten 
mit der Sinus-Funktion beim VC 
20 ein anderer Wert heraus als 
mit meinem Taschenrechner? 

Albert Bartels 

Die meisten Basic-Interpreter 
rechnen intern mit einer gerin- 
geren Genauigkeit als ein Ta- 
schenrechner. Besonders bei 
höheren mathematischen Funk- 
tionen kann es daher zu kleinen 
Abweichungen kommen. 


Commodore 
64-Programme auf VG 20? 


Sind die für den C 64 abge- 
druckten Programme auch für 
den VC 20 zu benutzen ? Natür- 
lich nur, soweit die benötigte 
Peripherie vorhanden ist. 

Andreas Volz 

Sofern es sich um reine Basic- 
Programme ohne POKEs und 
PEEKs handelt, gibt es keine 
Schwierigkeiten bei der Über- 
nahme von Programmen des C 
64 auf den VC 20 oder umge- 
kehrt. Wegen der unterschiedli- 
chen Zeichenzahl pro Bild- 
schirmzeile (22 Zeichen beim 
VC 20, 40 Zeichen beim C 64) 
wird die Bildschirmdarstellung 
unter Umständen jedoch etwas 
unübersichtlich. Entsprechende 
Änderungen bei den PRINT- 
Befehlen sind jedoch auch für 
den Änfänger nicht allzu schwer 
zu bewerkstelligen. Falls das 
Programm aber POKE-Befehle 
oder Maschinenspracheteile 
enthält, ist die Anpassung ohne 
Kenntnis der jeweils anderen 
Systemadressen kaum möglich. 


»PRINT #« abkürzen? 


Ich habe das Programm »Da- 
tenverwaltung« aus Heft 4/84 
abgetippt und es läuft einwand- 
frei bis auf die Speicherung der 
Daten. Immer wenn ich »S« (= 
speichern) drücke und den Kas- 
settenrecorder auf »Aufnahme« 
schalte, erscheint ein Syntax- 
Error in Zeile 615. Hans Mair 


10 =ıkam 


In Zeile 615 wird mit dem 
PRINT #-Befehl in eine Bandda- 
tei geschrieben. Sehr wahr- 
scheinlich haben Sie bei der 
Eingabe dieses Befehls die Ab- 
kürzung »% für PRINT verwen- 
det, wasbei PRINT # nicht zuläs- 
sig ist. 


VG 20 erweitern ? 


Welche Speichererweiterung 
ist ideal für den VC 20? 

Harald Janning 

Der VC 20 hat ja leider die un- 
angenehme Eigenschaft, daß 
Video- und Farbspeicher je 
nach Speicherausbau unter- 
schiedliche Adressen im RAM 
einnehmen. Ideal erscheint da- 
her die Verwendung einer Er- 
weiterungsplatine mitmehreren 
Steckplätzen, so daß man zwi- 
schen den verschiedenen 
Speichererweiterungen um- 
schalten kann. Eine andere Lö- 
sung ist die Verwendung einer 
64 KByte RAM-Karte. Zwar kann 
der VC 20 mit soviel Speicher ei- 
gentlich gar nichts anfangen, 
aber diese Karte kann alle denk- 
baren Speichererweiterungen 
simulieren. Man spart sich so 
das lästige Umstecken der ein- 
zelnen Erweiterungen. 

Eine solche 64 KByte RAM- 
Karte bietet zum Beispiel die Fir- 
ma Roos Elektronic, Kleiner 
Markt 7, in 4190 Kleve an. 


Maschinensprache laden? 


Wie kann ich mit dem Com- 
modore 64 Maschinenprogram- 
me laden? Welche Hard- oder 
Software fehlt mir dafür? 

Gundolf Plischke 

Maschinenspracheprogram- 

me werden entweder mit»LOAD 
"Name',l,l« (von Kassette) oder 
mit »LOAD "Name", 8,l« (von Dis- 
kette) geladen. 
Die Sekundäradresse »l« veran- 
laßt den Computer, das Pro- 
gramm nicht wie üblich an den 
Basic-Anfang zu verschieben, 
sondern es an seine originale 
Startadresse zu laden. 








Autostart 


Wie bringe ich meine Pro- 
gramme dazu, daß sie nach 
dem Laden von Diskette oder 
Kassette automatisch starten? 

Carsten Bruch 
Beim Laden von Datassette ist 
ein Autostart sehr einfach: 
Drücken Sie gleichzeitig »Shift« 
und die »RUN/STOP«Taste. Es 
wird das nächste Programm von 
Kassette gelesen und sofort ge- 
startet. Beim Diskettenbetrieb 
empfiehlt es sich, zunächst das 
DOS 5.1 von der Demo-Diskette 
zu laden. Der DOS-Befehl »1» 
(Hochpieil), gefolgt von einem 
Programmnamen, lädt das ent- 
sprechende Programm von Dis- 
kette und startet es automatisch. 


So wertet man Formeln 
in Basic-Programmen aus 


Frage: „Wie wertet man Basic- 
Programme aus?” 

Ausgabe: 64/5 

Name: Steffen Roehn 


Die Routine ab Adresse 
44446/$ADIE (nicht SADYFI) 
wertet zwar sowohl numerische 
als auch Stringausdrücke aus, 
jedoch muß beim Auswerten ei- 
nes Strings nach dessen Bear- 
beitung derselbe auch wieder 
aus dem Stringstack entfernt 
werden, da dieser sonst über- 
läuft (daher auch der »FORMU- 
LA TOO COMPLEXO0). Dies er- 
folgt durch Aufruf der Routine 
»FRESTR« ab Adresse 46755/$ 
BSA3, wobei gleichzeitig auch 
geprüft wird, obessich beidem 
gelesenen Ausdruck auch um 
einen String handelt. Erklärun- 
gen zur Formelauswertung und 
anderem, was dazu gehört, be- 
finden sich außerdem im »Inter- 
face Age Systemhandbuch zum 
Commodore 64« auf den Seiten 
10 bis 22. 

Ralph Babel 





Komma als Satzzeichen 


Frage: „Kann man bei einem In- 
putbefehl das Komma als nor- 


males Satzzeichen verwen- 
den?” 
Ausgabe 64/5 


Name: Gerhard Giessmann 


Um einen INPUT-Beiehl auch 
Kommata (und Doppelpunkte) 
akzeptieren zu lassen, muß man 
lediglich als erstes Zeichen ein 
Anführungszeichen eingeben, 
das nicht in die Variable nach 
»INPUT« übernommen wird. Die- 
se Eingabe läßt sich auch auto- 
matisch über den Tastaturpuffer 
simulieren, indem man »POKE 
631, 34: POKE 198, le vor den »IN- 
PUT« setzt. Jetzt wird das Anfüh- 
rungszeichen von selbst ausge- 
geben. Eleganter ist es natür- 
lich, wenn eine eigene Eingabe- 
routine verwendet wird, wie bei- 
spielsweise »INPUTFORM« und 
»INPUTLINE« im EXBASIC LE- 
VELI. 

Ralph Babel 


VG 20-Programme auf 
CBM 8032 

Frage: „Wie kann ich Program- 
me von VC 20aufdem CBM 8052 
zum laufen bringen?” 
Ausgabe: 64/5 

Name: Gerhard Grahl 


Das Einlesen von Relativpro- 
grammen (abgespeichert ohne 
Sekundäradresse) auf Kassette 
mit beliebiger Startadresse in 
den CBM 8032 erfolgt durch 
OPEN 1: POKE 635, 1: POKE 636, 
4: SYS 62456 

Das Programm kann nun geli- 
stet werden (allerdings beherr- 
schen die Drucker zum 80er 
meist nicht das Pfundzeichen, 
was bei Ausgabe von »Control 
Red« beachtet werden muß). Mit 
Exbasic Level II können Disket- 
tenprogramme durch »MERGE« 
in den 80er geladen werden. 

Ralph Babel 


Nach einer Stunde Fern- 
seher Justieren 


Frage: „Nachzirka einer Stunde 
verliert mein Fernseher die Far- 
be, was kann ich dagegen tun?” 
Ausgabe: 64/5 
Name: Klaus Heinz 
Die einfachste Lösung dieses 
allgemein verbreiteten Pro- 
blems erscheint mir im Nachju- 
stieren der Sendereinstellung 
am Fernseher (wasdann von Zeit 
zu Zeit mal geschehen muß). 
Ralph Babel 
Das Problem kann auch an ei- 
nem verstellten Trimmer des C 
64 liegen. Dieser befindet sich 
auf der Rückseite des Compu- 
ters und kann mittels eines klei- 
nen Schraubendrehers von au- 
Ben verstellt werden. 
Guido Stapel 
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Entfernungsberechnung 
mit VG 20 


Frage: „Wie kann ich mit dem 
VC 20 die Entfernung zwischen 
zwei Koordinaten auf der Ober- 
fläche der Erde berechnen?” 
Ausgabe: 64/5 
Name: Harald Lang 

Ich habe ein solches Pro- 
gramm für C 64 geschrieben. Es 
läßt sich leicht an den VC 20 an- 
passen. Interessenten können 
sich an mich wenden. 


Info: Alfred Born. Hermannstr. 10, 1000 Ber- 
lin 64, Tel. 030/621 9828 


Bildschirm horizontal 
scrollen 


Frage: „Kann ich mit dem C 64 
den Bildschirm horizontal scrol- 
len lassen?” 
Ausgabe: 64/5 
Name: Andres Linz 

Das Scrolling (insbesondere 
Softscrolling) ist im »Interface 
Age Systemhandbuch zum Com- 
modore 64« auf den Seiten 60 bis 
64 ausführlich erklärt. R. Babel 


Drucker/Floppy-Einschalt- 
Test 


Frage: „Mit welchen Befehlen 
kann ich überprüfen, ob der 
Drucker oder die Floppy einge- 
schaltet ist?” 

Ausgabe: 64/5 

Name: Ernst Jeschke 


Eine Überprüfung, ob ein 
Drucker am seriellen Bus ange- 
schlossen ist, läßt sich beim 
Commodore 64 durch folgende 
Befehle erreichen: 

100 POKE 768, 185 
110 OPEN 1, 4: PRINT #1 
120 POKE 768, 139 

Da so jegliche Fehlermeldung 
unterdrückt wird, kann nun 
durch Abfrage der Statusvaria- 
blen »ST« geprüft werden, ob die 
Leerzeile (oder jeder beliebige 
andere Text wie zum Beispiel 
nicht druckende Steuerzei- 
chen!) vom Drucker angenom- 
men wurde. Somit kann verhin- 
dert werden, daß ein Pro 
grammlauf durch »DEVICE 
NOT PRESENT« abgebrochen 
wird. Ein Test auf Vorhanden- 
sein einer Diskettenstation kann 
durch entsprechende Pro- 
grammänderung erfolgen. 

Ralph Babel 

Um abzufragen, ob der 
Drucker angeschaltet ist, muß 
man eine Probezeile an den 
Drucker schicken. Dies funktio- 
niert nur, falls noch ein anderes 
Gerät am seriellen Port ange- 
schlossen ist (Floppy, Plotter): 
10 OPEN4,4 
20 PRINT #4, —' 

30 PRINT#4 
40 CLOSE4 

2. Möglichkeit: Die Speicher- 

stelle 186 enthält die Adrese des 
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Gerätes, mit dem zuletzt Daten 
ausgetauscht wurden.Also 8 bei 
Disk, ] bei Datasette und 4 nach 
dem Drucken. Dies ist in Lade- 
programmen gut verwendbar. 
10 A=PEEK(186) 
20 IFB=0THEN B=1:LOAD"”NA- 
ME"Al 
30 SYS Startadresse 

Somit ist kein Umschreiben 
von Ladeprogrammen von Flop- 
py auf Recorder oder umge- 
kehrt mehr nötig. Guido Stapel 


Schachprogramme 


Frage: „Kennt jemand ein spiel- 
starkes Schachprogramm für 
den C 64?“ 

Ausgabe: 64/5 

Name: Peter Jugl 

Außer den genannten Schach- 
programmen Grandmaster und 
Sargon II gibt es, soweit mir be- 
kannt, nurnoch zweispielstärke- 
re Programme: 

1. CHESS 7.0 von ODESTA (auf 
Diskette) 

Features: Spiele können auf 
Diskette abgespeichert und wie- 
der eingelesen werden, viele 
Meisterpartien sind bereits ge- 
speichert, Blindschachvariatio- 
nen möglich, Zurücknahme, Prü- 
fung eines Feldes auf Bedro- 
hung und so weiter. Preis: zirka 
300 Mark. 

2. Colossus 2.0 (auf Kassette) 

Ähnliche Möglichkeiten wie 
oben, aber durch die Kassetten- 
speicherung etwas begrenzt. 
Preis: zirka 120 Mark. Beide Pro- 
gramme sind im Fachhandel er- 
hältlich. Guido Stapel 

Vermutlich wird Herrn Jugl 
kein Computerprogramm schla- 
gen, so daßer aufeinen Schach- 
computer zurückgreifen sollte. 
Die Spitzenschachcomputer 
schlagen Computerschachpro- 
gramme übrigens recht einfach 
und überzeugend. Die guten 
NOVAG-Schachcomputer  ha- 
ben mich persönlich überzeugt, 
da sie recht spielstark sind, kei 
ne Spielfehler machen (jeden- 
falls keine offensichtlichen) und 
ständig auf den neuesten Stand 
gebracht werden können, dasıe 
mit EPROM-Technik arbeiten. 
Das heißt: Gibt es ein neues, 
spielstärkeres Programm, so 
kann man seinen alten Schach- 
computer einfach nachrüsten (= 
austauschen). Detlef Wacker 


Frage: „Ich suche ein Pro- 
„ um Daten vom Bild- 

schirm (C 64) auf Kassette spei- 
chern und von dort wieder ab- 
rufen zu können” 
Ausgabe: 64/5 
Name: Thomas Mandl 

Das Problem, welches sich 
Herrn Mandl stellt, muß in zwei 


Kategorien aufgespalten wer- 
den: 


l) Abspeichern des Bildschirm- 
inhaltes 40 x 25 Zeichen: 

Wenn nur rechnerspezifische 
Zeichen (also keine hochauflö- 
sende Grafik) abgespeichert 
werden sollen, so ist dies recht 
einfach. Eine denkbare Lösung 
wäre, die 1000 Zeichen (40 x 25) 
mit der PEEK(X}-Funktion in ei- 
nen Vektor einzulesen und die- 
sen Vektor dann in ein sequen- 
tielles File aufKassette zu schrei- 
ben. Die 1000 Zeichen stehen im 
Computer ab Adresse 1024 bis 
Adresse 2023. Mit folgendem 
Programm können die Zeichen 
ausgelesen werden: 

10 DIM A(1000) 

20 FOR I = 1TO 1000 
30 All) = PEEK(I+1023) 
40 NEXTI 


Dieser Vektor (A) kann nun 
einfach auf Kassette geschrie- 
ben und jederzeit wieder gela- 
den werden. Mit POKE(X) kann 
dann der Text/die Grafikzei- 
chen einfach wieder auf den 
Bildschirm zurückbefördert 
werden. Eine Erweiterung des 
obigen Programmes verdeut- 
licht dies: 

50 PRINT »SHIFT/CLR HOME« 
(Bildschirm löschen) 

60 FOR I = 1 TO 1000 

70 POKE 1023+L,AD) 

80 NEXTI 

90 END 

Wenn man noch die Farben 
der 1000 Zeichen abspeichern 
will, so muß man zusätzlich noch 
den Speicherbereich von 55296 
bis 56295 auslesen. Das Verfah- 
ren ist identisch! So kann immer- 
hin schon eine Blockgrafik (mit 
Grafikzeichen) in Farbe oderein 
Text abgespeichert werden. 


2) Abspeichern von hochauflö- 
sender Grafik: 
Beihochauflösender Grafik ist 
das schon etwas umständlicher, 
denn hier muß man das Bitmu- 
ster der Grafik abspeichern. 
Das Verfahren ist identisch mit 
jenem, daseine hochauflösende 
Grafik aufeinen Drucker bringt 
(Hardcopy). Vielleicht schreibt 
ein anderer Leser für Herm 
Mandl ein entsprechendes Pro- 
gramm, ich habe leider keine 
Zeit dazu, da ich im Äbistreß ste- 
he. Detlef Wacker 


Um Daten direkt vom Bild- 
schirm auf Kassette übertragen 
zu können, muß man in Basic mit 
Files arbeiten: 

60000 OPEN 1,1,1»Bildschirm« 
60050 FOR I = 1024 TO 2023 
60100 P = PEEK():PRINT#LI 
60150 NEXT I: CLOSE 1 

Nun umgekehrt: 

60000 OPEN 1,1,0»Bildschirm« 
60050 FOR I = 1024 TO 2023 
60100 INPUT #1,P:POKEILP 
60150 NEXT I:CLOSE 1 

Guido Stapel 


Das DOS auf der 
Demodiskette — 
noch 2 Befehle 


Bei Ihrem Bericht über das 
DOS 5.1 in der Mai-Ausgabe des 
64'ers wurden zwei Befehle des 
DOS 5.] nicht behandelt. 

Das ist einmal der Befehl: % 
Name. 

Dieser Befehl lädt ein Maschi- 
nenprogramm ein, das sonst mit 
LOAD'"Name'",8,] geladen wer- 
den muß. Nach diesem Befehl 
braucht auch kein NEW mehr 
eingegeben werden, wie es 
sonst nach dem Ladeneines Ma- 
schinenprogramms nötig ist, um 
keinen OUT OF MEMORY ER- 
ROR zu erhalten. 

Der zweite der beiden weite- 
ren Befehle ist >Q. 

Er bewirkt, daß das DOS 5.1 
verlassen wird. Dies ist dann 
wichtig, wenn ein anderes Pro- 
gramm in den Bereich geladen 
werden soll, indem das DOS 5.1 
liegt (hex CC00 bis CF58 = dez 
52224 bis 53080). Da die Routine 
zur Überprüfung der Eingabe in 
diesem Bereich liegt, würde ein 
Überschreiben dieser Routine 
in den meisten Fällen zum Ab- 
sturz führen. 

DasDOS5.l kannnach >Qmit 
SYS 52224 wieder gestartet wer- 
den. 


Frank Tecker 
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Frage auf: Nachfolger von wem? 
Vom VC 20 oder vom C 64? 

In den letzten Heften wurde be- 
reits ausführlich über den Commo- 
dore 264 berichtet und dabei ist klar 
geworden, daß der 264 den C 64 
nicht ablösen soll. Der 264 ist etwas 
weiter weg vom Hobby-Computer: 
etwas weniger Grafik- und Sound- 
Möglichkeiten, dafür besseres Ba- 
sic und komfortablere Handha- 
bung, ein Computer weniger zum 
Spielen als mehr zum emsthaften 
Arbeiten. Um den neuen C 118/C 16 
in die Gesamtpalette der kleineren 
Commodore-Systeme einordnen zu 
können, stelltman am besten einmal 
die Eigenschaften und Fähigkeiten 
aller vier Computer gegenüber. 
Fangen wir mit den alten Bekannten 


N ie Überschrift wirft sofort eine 


Als er auf den Markt kam, wurde 
er innerhalb kürzester Zeit zum 
Marktrenner. Sein ausgezeichnetes 
Preis/Leistungsverhältnis war kon- 
kurrenzlos. Die Commodore-Strate- 
gie (computers not for the classes 
butforthe masses) kam voll zum Tra- 
gen. In der Grundversion 3 KByte 
(heute lacht man fast darüber), eine 
fast professionelle Tastatur, ausbau- 
fähig, eine schnell wachsende 
Menge an Software: der 
VC 20 wurde zum Lieb- 
ling der deutschen 
Computerszene. Die 
maximal mögli- 
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Bild 3. Die Anschlüsse des C 116. 
Sie dürften denen des C 16 entsprechen. 


che Anzahl von 22 Zeichen pro Zeile 
und 23 Zeilen am Bildschirm störten 
damals noch niemanden. Die Auflö- 
sung von 160 x 160 Punkten erlaubte 
die Darstellung befriedigender 
Grafiken. Der Preis von damals 800 
Mark, heutezirka 300 Mark, ließ den 
VC 20 für viele erschwinglich wer- 
den. 
Commodore 64 

Es dauerte aber nicht lange, da 
kam der C 64 auf den Markt. Er ließ 
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Escape-Taste 


viele Herzen höher schlagen. Wer 
bisher noch gewartet hatte mit der 
Anschaffung eines Computers, war 
jetzt überzeugt, die richtige Wahl 
treffen zu können. Und seine Fähig- 


Stromanschluß 


Reset-Taste 









Serielle Schnittstelle 


Datasette 
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keiten ließen viele 
dere vor Neid erblassen: x 


64 Kbyte RAM, davon zirka 38 
KByte frei für Basic-Programme, un- 
gefähr 52 KByte für Maschinenspra- 
che-Programme, eine Grafikauflö- 
sung von satten 320 x 200 Punkten, 16 
Farben und schon fast professionel- 
le Synthesizer-Eigenschaften. Un 

der Preis stimmte auch. Was wollte 
man mehr? Das spartanische Basic 
und die etwas mühselige Art, Grafik 
und Sound zu erzeugen, schreckte 
fast niemanden; im Gegenteil: eben 
weil keine starren Befehle die Mög- 





Ein etwas ungutes 
Gefühl beschlich uns, als 
wir hörten, daß einer 

der neuen Gommodore- 
Computer eine Gummi- 
tastatur besitzen sollte. 
Commodore mag ein 
ähnliches verspürt haben, 
denn zur Hannover- 
Messe wurde im letzten 
Moment das Ruder 
herumgeworfen: Der Gum- 
mi-Commodore C 116 


Videoeingang 


Joystick-Anschlüsse 


wandert zurück in die 
Schublade und an seine 
Stelle tritt der GC 16, 
mit dem gleichen Innen- 
leben, aber mit der 
bekannt guten Tastatur 
des C 64. 
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Cursor-Tasten 


iger? 





























HELP-Funktionstaste 


schreibt, die mehr als 38 KByte be- 
nötigen, sollte einmal seinen Pro- 
grammierstil überprüfen...). Auch 
die Benutzung fest eingebauter Pro- 
gramme (Textverarbeitung, Kalku- 
\ lationsprogramme oder andere Pro- 
\ grammiersprachen) auf Knopf- 


= Bild 2. Der Commodore C 16 ist ins Gehäuse 
des C 64/VC 20 gepackt. Nur die Anordnung der 
Tasten wurde geändert. 
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Escape-Taste 


Bild 1. Der C 116 


lichkeiten des C 64 und die Fähig- kommt nicht auf den deutschen Markt. 


keiten des Programmierers ein- 
schränken, kann jeder etwas dazu- 
lernen. Selbst der Profi hat es 
schwer, an die Grenzen des Mach- 
baren zu kommen. Auch beim C 64 
wächst die Anzahl der verfügbaren 
Software ins Unübersehbare. Selbst 
CP/M-Software (zum Beispiel Word- 
star) gibt es schon für den 
C 64. 

6 264 

Dieser neue Commodore ist ohne 
Zweifel der eleganteste, Sein Ge- 
häuse ist sehr kompakt, nicht so klo- 
big wie die anderen. 

Seine Tastatur ist lach und erlaubt 
auch längeres ermüdungsfreies Ar- 
beiten. Ein freier Speicherplatz von 
zirka 60 KByte ermöglicht das Ent- 
werfen großer Programme (aller- 
dings: Wer Basic-Programme 


druck ist neu. Selbst ein Windowing 
ist möglich, die Darstellung mehre- 
rer voneinander 

unabhängiger 
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Ausgaben auf dem Bildschirm. Dies 
alles, in Verbindung mit dem kom- 
fortablen Basic 3.5, macht den Com- 
modore 264 interessant für den an- 
spruchsvollen Heim-Anwender. 

c% 


Dieser Computer ist sozusagen ei- 
ne verkleinerte Ausgabe des C© 264; 
oder man kann auch sagen, sein 
kleiner Bruder (Bild 2). Er besitzt die 
gleiche komfortable Basic-Version 
3.5 und auch die gleichen Grafik- 
und Sound-Möglichkeiten. Eine ein- 
gebaute (built-in) Software wird es 
jedoch nicht geben und ein Windo- 
wing wird auch nicht möglich sein. 
Das liegt an der begrenzten Spei- 
cherkapazität. Diese beträgt nur 16 
KByte RAM. Der C 16 kennt, ebenso 
wenig wie der 264 und der VC 20, 
keine Sprites, diese für Spiele so in-- 
teressanten, frei beweglichen und 


Home/Cir 


Return-Taste 


Cursortaste ähnlich einem Joystick 


definierbaren Grafikgebilde des C 


64. Allerdings beträgt seine Grafik- 


auflösung 320 x 200 Punkte, einzeln 


ansteuerbar und in 16 Farben mit je 
acht Helligkeitsstufen über Basic- 
Befehle leicht ansprechbar. Ebenso 


wieder C64undder C 264kannder 


C 1640 Zeichen pro Zeile darstellen, 
das übliche beiheutigen Homecom- 


putern. Die Sound-Fähigkeiten be- 
schränken sich auf zwei Tongenera- 
toren, einer für einfache Töne, der 
andere für Geräusche wie Rau- 
schen, Knallen, Donnern und so wei- 
ter, selbst gegenüber den Möjglich- 
keiten des VC 20 enttäuschend ma- 


ger (siehe auch 
Tabelle ]). Der 



















Reset-Taste 
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Der Nachfolger? 


C 16 wurde in das Gehäuse des VC 
20/C 64 gesteckt. Die Tastatur ist von 
der Mechanik her die gleiche, le- 
diglich die Tastenbelegung ist geän- 
dert worden. Die Cursortasten be- 
finden sich jetzt oben rechts und es 
gibt nun vier davon, für jede Rich- 
tung eine. Die RESTORE-Taste wird 
jetzt mit CLR/HOME belegt. Die Ta- 
ste »Pfeilnachlinks«entfälltund wird 
ersezt durch die ESC-Funk- 
tion. 

Abgesehen von der Tastatur ist 
der C 116 mit seinen Gummitasten 
übrigens identisch mit dem C 16 
(Bild 1+3+4), Der C 116 wird auf 
dem deutschen Markt nicht erhält- 
lich sein. 


Fazit 


Wer sich einen neuen Computer 
kaufen will, ist mit dem C 64 be- 
stimmt um einiges besser beraten. 
Der © 64 hat so eine gewaltige Ver- 
breitung erreicht, daß sein Vor- 
sprung auf dem Software-, Zubehör- 
und auf dem Literaturmarkt selbst 
innerhalb eines Jahres nicht zu 
schlagen sein wird, wenn über- 
haupt. Reicht das Taschengeld nicht 
ganz, istaber der C 16eine annehm- 
bare Alternative. Er soll um die 300 
Mark kosten und leistet einiges 
mehr als der VC 20. 

Wer jedoch einen C 64 besitzt und 
auf ein größeres System umsteigen 
will, sollte lieber noch etwas warten. 
Gegen Ende des Jahres dürfte es 
auch von Commodore einen IBM- 
kompatiblen Computer geben, mit 
entsprechender Software, mit mehr 
als 64 KByte Speicherplatz und ei- 
nem schnellen 16-Bit-Prozessor.___ 
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Benchmark 1 
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100 REM £ 

110 AT NCHMARK 2 
200 PRIN Mo 

300 K=0 Ts 

a K=K+1 

IFK< 
448 B=71 1000 THEN 400 
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S00 PRINT"En 
600 PRINT 


/60 


SLIST 


Benchmark 2 


ARK 6 
60 REM ee 
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120 En S 
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5 REIUFT st 
PRINT © ısTt 
READY - 
Benchmark 6 
Geschwindigkeits- 
vergleiche 


Ich habe mit den Computern VC 
20, C 116, C 64 und C 264 einen Ge- 
schwindigkeitsvergleichstest 
durchgeführt. In den nebenstehen- 
den Listings sind die einzelnen 
Benchmarks abgedruckt. Diese 
Benchmarktests (siehe auch Tabelle 
2) beschränken sich auf die Basic- 
Befehle, die alle Computer gemein- 


— sam haben. Mit einigen Befehlen 


des neuen Commodore Basic 3.5 
könnten sich die Ausführungszeiten 
einiger Tests vielleicht verbessern. 
Dieser direkte Vergleich hat des- 
halb nur einen eingeschränkten 
Aussagewert. 
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Benchmark 3 


100 REM 
110 aA<ıı NCHMARK 7 


32 Ale 
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ADy, LIST 
Benchmark 4 


100 REM BENCHMARK B 
110-A=sIL = 
200 PRINT"S 
300 K=0 
400 K=K+l 
420 C=Kt2 
422 D=LO6(K) 
426 E=SIN(K) 
444 IFK<1000 
ag B=Tl 
A50 PRINT (B-A)/&0 
500 PRINT"E" FeT 
600 PRINT :L 
READY- 


Benchmark 8 


THEN 400 


Tabelle 2. Geschwindigkeitsvergleich. Alle Angaben in Sekunden. Zur Zeitmessung wurde die rechner- 


interne Uhr (TI) genommen. 


Folgende Gründe könnte es ge- 
ben für die unterschiedlichen Aus- 
führungszeiten: Der VC 20 ist prinzi- 
piell derSchnellste, weiler miteiner 


etwas höheren Taktfrequenz läuft. 
Der ClI6 ist schneller als der C264, 


weil sein Betriebssystem nicht ganz 
so umfangreich ist wie das des 
C264. Deshalb müssen .nichtso viele 
Betriebssystem-Routinen abgefragt 
und ausgeführt werden. 

Diese Tests (siehe Listings) wur- 


den das erste Mal vom US-Magazin 
»Kilobaud« veröffentlicht im Jahre 
1977. Lediglich Benchmark 8 wurde 
später hinzugefügt. 

Albgesehen von Benchmark |, das 
eine einfache FOR-NEXT-Schleife 
ausführt und Benchmark 8, das die 
Funktionen Potenzieren, Logarith- 
mieren und die Sinus-Funktion aus- 
führt, sind die restlichen Bench- 
marks so strukturiert, daß durch 
Subtraktion der Zeit des vorherge- 
henden Tests sich die neu hinzuge- 
fügte Funktion isolieren läßt. So 
kann man zum Beispiel durch Abzie- 
hen Benchmark 4 von Benchmark 5 
die Zeit für 1000 Gosub/Return fest- 
stellen. 

Zu diesen Benchmarktests noch 
ein paar Bemerkungen. 

Benchmarktests können nie eine 
allgemeine Aussage treffen. Schwä- 
chen auf einem Gebiet werden 
durch Stärkenin anderen Bereichen 
aufgehoben. Um ein abgerundetes 
Bild zu erhalten, muß auch die Bild- 
schirmausgabe oder der Umgang 
mit Strings berücksichtigt werden. 
Die Geschwindigkeit beider Grafik- 
erstellung ist wieder für andere ein 
wichtiges Kriterium. Viele Handi- 
caps lassen sich aber auch durch 
Maschinensprache-Routinen umge- 
hen. (ak) 





Lichtgriffel mit Software 


Den hochempfindlichen Licht- 
griffel von Madison Computer 
gibt es jetzt auch mit der entspre- 
chenden Software wie QB Gra- 
fies, Tic Tac Toe und einigen Utili- 
ties für den VC 20 oder Commo- 
dore 64 zu einem Preis von 50 Dol- 
lar. Diese Programme eignen 
sich hervorragend für Kinder im 
Vorschulalter, da, sobald ein Pro- 
gramm geladen ist, keine einzige 
Eingabe mehr über die Tastatur 
zu erfolgen braucht. Lediglich 
durch Zeigen mit dem Lichtgriffel 
auf den Bildschirm werden Zah- 
len, Buchstaben oder Farben 
ausgewählt. Auch eigene Pro- 
gramme sollen, nach entspre- 
chender Lektüre des Handbu- 
ches erstellt werden können. 
Den Lichtoriffel mit der Softwa- 
re auf Diskette oder Kassette gibt 
es bei Madison Computer, 1825 
Monroe Street, Madison, WI. 
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findet sich unter anderem der 
sogenannte USER-PORT mit sei- 
nen 24 Anschlüssen. Die Pin-Bele- 
gung mit Blick auf den Port zeigt Bild 
l. Für die folgenden Experimente 
werden neben einem (beliebigen) 
Masseanschluß (GND) und der her- 
ausgeführten Betriebsspannung 
von +5 V (Pin 2) die acht Ein- bezie- 
hungsweise Ausgänge des Ports B, 
das heißt die Anschlüsse C bis L be- 
nötigt. Die übrigen Anschlüsse sind 
zum Teil nicht beliebig für Experi- 
mente frei, dasie fürandere Zwecke 
mit benötigt werden. So führen die 
Pins 4 bis 6zum Joystickanschluß, Pin 
Zist für den Lichtgriffel, Pin8für den 
Kassettenschalter und Pin 9 ist ein 
gepufferter Serienausgang. Zwei 
weitere Anschlüsse, PinBund Mmit 
den Bezeichnungen CB 1 und CB2 
sind sogenannte qauittierende Lei- 
tungen (Handshake-Leitungen). 
Über Port B kann ein 8 Bit breites 


A uf der Rückseite des VC 20 be- 


na bon 






Wort ausgegeben beziehungsweise 
eingelesen werden. Die Kontrolle 
des Ports erfolgt über den Baustein 
6522, der unter anderem die Rich- 
tung des Datenflusses mit Hilfe des 
Datenrichtungsregisters (37138) fest- 
legt. Nach dem Einschalten des 
Computers sind alle Leitungen von 
Port B Eingänge. 

Beim Ausgeben soll der Compu- 
ter an die Pins C bis L (mit den Be- 
zeichnungen PB Obis PB T) eine logi- 
sche 1 (entspricht +5 Volt) bezie- 
hungsweise eine Null (0 Volt) legen. 
Dazu sind zwei Schritte notwendig: 
a) Der ganze Port beziehungsweise 
einzelne Leitungen von ihm müssen 
als Ausgänge programmiert wer- 
den. Der entsprechende Basic- 
Befehl heißt POKE 37138,X. 

X =1:PB0ist Ausgang 

X = 2:PBl1 ist Ausgang 

X = 4:PB2ist Ausgang (und so wei- 
ter bis X = 128) 


Wenn Sie auf ein größeres System 
umsteigen, dann verschleudern Sie 
nicht Ihren alten VC 20. Nutzen Sie 
statt dessen seine experimentellen 
Möglichkeiten, beispielsweise für die 
bitparallele Datenübertragung. 

Der folgende Artikel bringt dazu einige 
Anregungen und eine über zwei 
VC 20 zu spielende 
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belei. 





X = 3:PBOundPBl sind Ausgänge 
X = 5:PBOundPB2sind Ausgänge 
(und so weiter bis X = 255). 
b) Auf die als Ausgänge vorpro- 
grammierten Leitungen wird 1 be- 
ziehungsweise 0 gegeben. Der ent- 
sprechende Befehl heißt POKE 
37136,Y. 
Y = 0: auf allen Leitungen liegt 0. 
Y = l:nuraufPB0 liegt 1 
Y = 2:nuraufPB l liegt 1 
Y = 4:nuraufPB 2 liegt | (und so 
weiter bis Y = 128) 
Y = 3:aufPBOundPBlliegtl(und 
so weiter bis Y = 255). 

Auch das Einlesen von Port B er- 
folgt in zwei Schritten: 
a) Es muß darauf geachtet werden, 
daß die anzusprechenden Leitun- 
gen nicht als Ausgänge geschaltet 
sind. Der entsprechende Befehl 
heißt ebenfalls POKE 37138,X. FürX 
istjedoch die zu 255 komplementäre 
Binärzahl einzusetzen: 
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X =255:: keine Leitung ist Eingang 
(das heißt alle sind Ausgänge) 

X = 254 : nur PB 0 ist Eingang 

X = 240:PB0...PB3sind Eingänge 
(Rest Ausgänge) 


X= 15:PB4..PB7sind Eingänge 
X= 0: alle Leitungen sind Ein- 
gänge. 


b) Das gesamte angelegte Wort 
(einschließlich eventuell ausgege- 
bener Einsen) wird eingelesen. Der 
entsprechende Basic-Befehl heißt 
PEEK (37136). Dies ergibt Zahlen- 
werte zwischen 0 und 255. Der Wert 
255 bedeutet, daß an allen acht Pins 
eine logische 1, dasheißt +5 V liegt. 
Sollen einzelne Leitungen abgefragt 
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werden, so gewinnt manihre Werte 
durch logischen Vergleich, den 
man am besten in einem Unterpro- 
gramm durchführt: 

1000P = PEEK (37136) 
1010P0O=-—-((PAND]) = 
1020Pl=-—((PAND2) = 
1000P2=—((PAND4 = 


10860P7=—((PAND er 128 
1090 PRINTPO;P];...P7 

Das Unterprogramm führt bitwei- 
se einen logischen UND-Vergleich 
durch und prüft, ob dasjeweilige Bit 
mit 1 oder 0 belect ist. 


Anmerkung: In den folgenden 
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Programmen steht PO stattPBO und 
so weiter. 

Für die folgenden Experimente 
empfiehlt es sich, eine einfache 
Ein-/Ausgabeplatine zu bauen, die 
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das lästige Messen mit Spannungs- 
messer beziehungsweise Logikte- 
ster ersetzt. Einen entsprechenden 
Schaltungsvorschlag zeigt Bild 2. 

Die Schaltung ist so ausgelegt, 
daß die vier Leitungen PB ObisPB 3 
als Ausgänge und die vier Leitun- 
gen PB 4 bis PB 7 als Eingänge für 
den Computer verwendet werden. 
Selbstverständlich sind andere Auf- 
teilungen möglich. 

Der Anzeigeteil der Platine (ent- 
spricht dem Äusgabeteil des Com- 
puters) ist mit vier roten LEDs mit 
Vorwiderstand bestückt. Bei 200 
Ohm bleibt selbst beiacht LEDs der 
Gesamtstrom unter den zulässigen 
100 mA. 

Im Ausgabeteil der Platine (Einga- 
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beteil des Computers) legen Taster 
beziehungsweise Schalter die Ein- 
gänge auf +5 V. Beioffenen Tastern 
taucht ein Problem auf, da der Com- 
puter ebenfalls eine 1 einliest. Des- 








halb wird durch die 1 kOhm-Wider- 
stände das Potential auf logisch 0, 
das heißt auf zirka 0 V herabgezo- 
gen. 

Für den Aufbau eignet sich fast je- 
de Experimentierplatine im Europa- 
format mit Ätzinseln. Die Taster soll- 
ten prellfrei sein. Für den User-Port 
empfiehlt sich der Doppelstecker 
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CINCH 251-12-90-160 Typ 50 24 
EE-30 (erhältlich zum Beispiel bei 
Hofacker). Für die Zwischenverbin- 
dungen genügen bei kurzen 
Strecken ein mehradriges Band be- 
ziehungsweise 10 Einzeldrähte. Bei 
größeren Entfernungen (ab zirka 2 
m) empfiehltsich ein abgeschirmtes 
Kabel (Mantel auf GND). Bild 3 zeigt 
zwei verschiedene Baumuster der 
Platine. 





Software zur 
Ein-/Ausgabe 


Einen Programmvorschlag für 
das Ausgeben beziehungsweise 
Einlesen zeigt Listing 1. Da im obi- 
genBeispielPObisP3als Ausgänge 
und P4bis P7 als Eingänge geschal- 
tetwerdensollen, wird zunächst der 
Befehle POKE 37138, 15 gegeben 
werden (5 =8+4+2 + ]), das 
heißt Bit | bis 4 sind Ausgänge, der 
Rest Eingänge. 

Das Programm bietet in einem 
Menü zwei Teilprogramme an: Beim 
Ausgeben wird durch Betätigen der 
Tasten Z,X,C, V jeweils eine einzel- 
ne 1 auf den Computerport gege- 
ben, was durch das Leuchten der 
entsprechenden LED angezeigt 
wird. 

Beim Einlesen können einzelne 
oder alle Taster betätigt werden. 
Der Computer zeigt sowohl PEEK 
(37136) als Summe als auch die ein- 
zelnen Bitwerte an. 


Kopplung von zwei 
VC 20 


Will man statt der beschriebenen 
Ein-/Ausgabeplatinen einen zwei- 
ten Computer verwenden, so muß 
er mit einer neunadrigen Leitung 
(für 8 Bit und GND) angeschlossen 
werden. Mit Rücksicht auf das spä- 
ter zu beschreibende Spiel sind im 
folgenden vier Leitungen für die ei- 
ne Datenrichtung, die vier anderen 
für die umgekehrte Richtung vorge- 
sehen. Außerdem sind die Leitun- 
gen untereinander gekreuzt (das 
heißt Bit 1 von Computer A ist ver- 
bunden mit Bit 8 vom Computer B). 
Dies erlaubt es später, für das Com- 
puterspiel in beiden Computern 
das exakt gleiche Programm ver- 
wenden zu können. 

Die komplette Verbindung zeigt 
Bild 4. Es werden die gleichen 
Stecker und Leitungen wie oben be- 
nutzt. Für Testzwecke kann das Pro- 


gramm von Listing 2 benützt wer- 
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19 REM KNOBELSPIEL 
29 PRINT"I" 


53 PRINT" 
a PRINT:PRINT" 
a FEINT:PRINT" 
5 FOR T=1 TO S099:NEXT 
5 FOKE 
a POKE 
a4 Ari: Bei 


115 
120 
126 
135 
145 
145 
155 
155 
1655 
155 
179 
129 
129 
195 
2 
295 
218 


NN 
De 


Nm nmmt 


SKNOBELSPIELS” 
SCHERE STEIN 
AUTOR 


PRPIER ":PRINT'FRINT 


ALFRECHT LANGENSTEIN 


37132,15 


37136.,0 


REM VORBEREITUNG 


5 PRINT"ACHTUNG!" 


FRINT"PRUEFEN SIE,OE DAS VERBINDUNGSKAEBEI 
PRINT"SONST ERST ZBEIDE® ":FRINT 

PRINT"- RECHNER SAUSSCHALTENE" 

FRINT"- KABEL EINSTECKEN 

FRINT"- FROGRAMM NEU LADEN." :PRINT 
FRINT"MONITOR GEEIGNEF ALF- STELLEN!" PRINT 
FRIHT"BEI BILDSTREIFEN EYT. UHF-MÖDULATOREN DREHEN" 
FPRINT"LAUTSTAERKE EINSTELLEN" 
FOKE 36538758,15:POKE 35375 ,213 
FRINT” WENN ALLES OK, 
GETAF: IFAF=""THEN 196 

IFAg=" "THEN 2826 

SOTO 170 

REM ANWEISUNG 

FRINT"D" :PRINT"SPIELANNWEISUNG : 


STECKT." :PRINT 


3_EERTASTE® DRUECKEN!" 


STEIN ODER FAPIER!": PRINT 


FRINT"SCHERE GEWINNT GEGEN FRPIER." PRINT 

PRINT"FAPIER GEWINNT GEGEN STEIN .„":PRINT 

PRINT"STEIN GEWINNT GEGEN SCHERE." PRINT 

PRINT"SOHST UNENTSCHIEDEN." PRINT 

PRINT"GESAMTSIEGER IST .VIER . ZUERST 3 EINZELSPIELE GEWONNEN HATI" 


5 REM START 


FÜOKE 26278 ,8 
FPg=9:P1=:P2=8:P3=A 


5 PRINT 





PRINT"MENN OK,TASTE Fi " 

GETA$: IFAF=""THEN 330 
IFAS=SCHRECISSITHEN 359 

SOoTO 320 

POKE 3658373 ,15:POKE 36 

FORT=1 TO159:NEXT 

FÜKE 2365373 ,0 

FPü=1:X=1:PÜKE 37128,X 
PRINT"D":PRINT"AUF GEGNER HARTEN!" 
GOSLUE 1095 
IF P?=1 THEN 
SOTO 376 

REM WAHL A 
PRINT"D" 
PRINT:FRINT" 


458 


BITTE WAEHLEN! !" "PRINT 
PRINT" F3...SCHERE ":PRINT:PRIHT 
PRINT" FS...STEIN ":PRINT:PRINT 
PRINT" F?T...PAPIER ":PRINT:FRINT 
PRINT:PRINT"ENTSPR.TASTE DRUECKEN!" 
GETAF: IFAF=""THEN 430 

IFA$=CHREL134) THEN 450 
IFAS=CHRFLIBS> THEN 476 
IFAS=CHRFC12G> THEN 439 

SOTO 462 

Pl=1:%=2:P$="SCHERE" 

POKE 27136 ,X:60T0 589 
P2=1:X=4:P$="STEIN " 

POKE 37136.,X:60T0 538 
P3=1:N=8:P$="FAPIER" 

FOKE 37136,X:60T0 598 

REM EIN B 

POKE 265878 ,15: POKE3S875 ,213 

GOSUB 1008 

IF P4=1 OR PS=1 OR P6=1 THEN. 545 
G0T0 518 

FPOKE 25878 ,0 

REM VERGLEICH 

IF P&ö=1 THEN 605 

IF FS=1 THEN 6065 

IF P4=1 THEN 697 


FRINT 


M$="SCHERE":GOTO 6198 

SH="STEIN ":G0T0O 6165 
Qs="PAPIER":GOTO 6818 

IF FPi=1 AHD P6=1 THEN 718:REM REMIS 
IF P2=1 AND FPS5=t1 THEN 718 

IF F3=1 AND F4=1 THEN 718 

IF Pi=1 AND P4d=1 THEN 748:REM SIEG A 
IF P2=1 AND P&=1 THEN 748 

IF P3=1 AND PS=1 THEN 748 
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den, wenn wechselweise der Pro- 
grammteil Einlesen beziehungswei- 
se Ausgeben gewählt wird. Eskann 
jedoch auch (nach POKE 37138, X 
mit POKE 37136, X ausgegeben und 
mit PRINT PEEK (37136) im Direkt- 
mode gearbeitet werden. 


578 IF Pi=1 AND FS5=1 THEN 776:REM SIEG E 
=s@a IF PZ=1 AND P4=1 THEN 778 

298 IF PS=1 AND P6s=1 THEN 778 

799 REM ERGEENIS 

716 REM REMIS 

712 PRINT"Q":PRINT"SIE HATTEN ";P#$ 

714 PRINT:PRINT"IHR GEGNER ";0$ 

729 PRINT:PRINT" ALSO UNENTSCHIEDEN" 

728 G50T0 200 

748 REM SIEGER SELBST 

742 PRINT"D":PRINT"SIE HATTEN ";P$ 

744 FRINT:FRINT"IHR GEGNER "508 

758 FRINT:PRINT"SIE HABEN GEWONNEN! " 
7598 A=A+1:G0T0 20908 

77a REM SIEGER GEGNER 

772 PRINT"D":PRINT"SIE HATTEN ";PF 

774 PRINT:PRINT"IHR GEGNER ";Q$ 

758 PRINT:PRINT"GEGNER HAT GEWONNEN!" 
734 E=B+1:60T0 206 

sau REM ZREHLEN 

zei IF A=B THEN 865 

=a2 IF A>B THEN 866 

=43 IF A<B THEN 397 

205 St=" UNENTSCHIEDEN.":GOTO 21% 

=s05 S$=" FUER SIE! ":G50T0 818 

597 St=" FUER GEGNER! ":GOTO 218 

319 PRINT:PRINT:PRINT"SPIELSTAND: "PRINT 
220 PRINT A5":";B;S$ 

259 IF A=3 THEN 980 

Ss65 IF E=3 THEN 930 

279 GOTO 298 

aa REM GESAMTSIEG 

sıa PRINT:FRINT"SIE HABEN DAS SPIEL" PRINT 
=15 PRINT"MIT" RI": "3 B5 "GEWONNEN!" 

s2a GOSUE 11065 

925 GOTO 959 

934 PRINT:PRINT"SIE HABEN DAS SPIEL" :PRINT 





Knobelspiel 
Schere/Stein/Papier 


Das Spiel, das zwischen zwei Spie- 
lern über zwei miteinander verkop- 
pelte Computer gespielt wird, soll 
neben seinem Unterhaltungswert 
den Datenaustausch zwischen zwei 
Computern zeigen. Weiterhin zeigt 
es das Arbeiten mit dem logischen 
Befehlen AND und OR. 

Üblicherweise wird das Knobel- 
spiel nach folgenden Regeln ge- 
spielt: Die beiden Spielpartner zei- 
gen auf Kommando zwei ausge- 
streckte Finger, bedeutet Schere, 
oder die flache Hand (Papier), oder 
die geballte Faust (Stein). Es gewinnt 
Schere gegen Papier (die Schere 
schneidet das Papier), Stein gegen 
Schere (der Stein schleift die Sche- 
re) und Papier gegen Stein (das Pa- 
pier hüllt den Stein ein). Damit sind 
Sieg, Unentschieden und Niederla- 
gen möglich. Gesamtsieger ist, wer 
m drei Einzelspiele gewonnen 

at. 

Die logische Struktur des Spiels 
zeigt Bild 5. Man erkennt einen 
recht großen Aufwand an UND- be- 
ziehungsweise ODER-Schaltungen. 
Dabei ist bei der gezeigten Schal- 
tung noch nicht verhindert, daß ein 
Spieler gleichzeitig mehrere Einga- 
ben wählt. Außerdem fehlen noch 
die Zählschaltungen und ein Takt- 
geber. Wegen des hohen Aufwan- 
des an Logikbausteinen bietet sich 
eine Computerschaltung mit ent- 





245 GÜSUB 12065 

945 GOTÜ 950 

>58 FPRINT:PRINT 

352 PRINT:PRINT:FRINT" NOCH EINMAL? J/N " 
SS5 PRINT:PRINT" J ODER N EINGEBEN !" 
9359 GETAS: IFAs=""THEN 9658 

DES IFAs="J" THEN 988 

ara IFAs$="N" THEN 1369 

75 GOTN 958 

2a PRIHT"I” 

5 A=0:E=0 

a GOTO Sau 

aa REM PEEK IN 

1 

2 

3 





a P=PEEK(FTIEE> 

2a P4d=-CcP AND 1isd)= 165) 
a PS5=-<(P AND 32)= 32) 
a4 Pö=-(<CF AND sd4>= 64) 
1955 P7=-((CF AND 122)=125) 
19659 RETUFN 

1155 REM MUSIC A 

ı11G FOKE 26375,15 

1115 FüRkL=1 TO 10 

1124 FÜR M=123G TO 235 STEP 2 
1125 POKE 35875 .M 


1128 FOR N=1 TO 16 


1135 NEXT N sprechendem Programm an. Die 
1148 NEXT MO Listing 1. Programm für das Grundstruktur mit den logischen 
a as Ra: 100 Knobeispiel zwischen zwei VC20 Befehlen statt den UND-Verknüp- 


fungen sieht folgendermaßen aus: 
610IFAl=1ANDBI = 1THEN7IO 


1155 NEXT M 
1154 NEXT L 





710 REM UNENTSCHIEDEN : END 
740 REM SIEG A : END 
770 REM SIEG B: END 


Die bei den statischen Verknüp- 
fungsgliedern folgenden ODER- 


PRINT" MF MIEDERSFIELEN!! " 
Sa END 





1155 FÜKE 365575,8 

2: ee (Schere A — Schere B) 

ng 620IFA2= 1 ANDB2 = 1THEN7IO 
FOKE 73.15 (Stein A — Stein B) 
FÜR Mm aa. Te 127 :STEP -1 . 

er basfenr 640IF Al = 1 ANDB3 = 1 THEN 740 

1254 NEXT M (Schere A — Papier B) 

1220 PORE: RER . 

1200 WEN SCHUBE 670IFAl = 1 ANDB2 = 1 THEN770 

1216 PRINT"D" (Schere A — Stein B) 

1328 PRINT" ICH BEDANKE MICH!" :PRINT:PRINT 

13 

i2 
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FRINT"D" REM VORBEREITUNG 
REM FBa..PA3 OUT 

REM PE4..FB? IN 

FÜKE 37133,15:POKE 371368.0 












nr! 


FRINT”E. ..EINGEBEN" 
GETAE: IFAF=""THEN 79 
IFA£="A"THEN 200 

aa IFAF="E"THEN 459 

a GOTN So 

a REM AUSGABE 

129 P9=4:P1=9:P2=9:P3=9:!x=3 


KINN 
a 


u 
m. 
\ 


GET At:IF As="" 
a IFA£="J"THEN 209 
156 IFAS="N"THEN 158 
STD 120 

134 FOKE 37135,0 
END 

PRINT"D" 

FOKE 37135.8 
224 PRINT:PRINT 
238 PRINT'"Z X EN 
FRINT:FRINT 
GET As: IFAF=""THEN 250 
IFAs="Z" THEN 310 

278 IFAs="*" THEN 336 
IFAf="C" THEN 358 
IFAg="V" THEN 370 

SOoTO 234 
Fo=1:X=1 
SUTO 4a 
Pl=1:x=2 
3 GOTO 456 
FZ=1'N=4 
SQTO 408 
37a P?=1'X=3 


SHTN an 


THEN 14% 











EINGEBEN!" 







a FÜKE 371365 .% 

a GoTO 116 

REM EINGABE 

FPRINT"D":GOSUB 596 
PFRINT"P=PEEK(37135)="; P:PRINT 
3 FRINT"P4=":P4,"PS=";FPS5,"Pe=" 
sag REM FEEK IN 

515 F=FEEK(Z713E) 

3 P4=-(C<PAND 16)= 15) 

538 PS5=-(c<PAND 32)= 32) 

549 Pö=-<CPANID E4)= 64) 
P7=-<CPANDI23>= 125) 

5 RETURN 


REAL". 


Schaltungen werden im Computer- 
programm dadurch realisiert, daß 
von drei Stellen aus an die entspre- 
chende Einsprungstelle gesprun- 
gen wird. 

Der logische Befehl OR wird an 
anderer Stelle benötigt. Die Zeilen 
510 GOSUB 1000 : REM EINLESEN 
520 IFB 1. = 1OR B2'= 1: ORB3 = 
1 THEN 540 
530 GOTO 510 
540 REM VERGLEICH 
erlauben ein Weitergehen im Pro- 
gramm, wenn der Spielpartner Bei- 
ne beliebige Eingabe, Schere oder 
Stein oder Papier, gemacht hat. 

Anmerkung: Für A 1 bisB 3 steht 
im Listing P 1 bis P 6 (nach Bild 4). 

Vorausgesetzt wurde, daß für bei- 
de Computer (als A und B bezeich- 
net) das exakt gleiche Programm 
verwendet werden soll (also kein 
Master- beziehungsweise Slave- 


mn DET 


FRINT"A...HUSGEBEN" :PRINT:PRINT 


PRINT :FRINT:PRIHT"NOCH EINMAL? J/H" 


PRINT"PG=";PS,"Pj=";Pl ,"P2=";P2,"P3=";P3 


;P 
a FÜR T=1 TO 499:NEXT:GOTO 450:END 





Listing 2. Programm zum Ein-/Auslesen über 
den Userport am VC 20 






























































6,"P7=":P7 


Programm). Die jeweilige Ausgabe 
Schere/Stein/Papier soll als logi- 
sche | über die Ausgänge P1,P2 
und P 3 ausgegeben werden bezie- 
hungsweise vom entgegengesetz- 
ten Computer über die Eingänge P 
4, P5 und P 6 eingelesen werden. 
Um das Spiel synchron zu halten, 
wird das »o.k.«Signal benutzt, das 
über PO ausgegeben beziehungs- 
weise über P 7 eingelesen wird. Hat 
zum Beispiel Spielpartner A die o.k.- 
Taste betätigt, so läuft das Pro- 
gramm erst weiter, wenn auch B 
sein o.k. signalisiert hat. A kann jetzt 
Schere, Stein oder Papier wählen. 
Wieder muß gewartet werden, bis 
auch B seine Wahl getroffen hat. 
Der synchrone Verlauf des Spiels 
wird durch akustische Signale un- 
terstützt. Das vollständige Struktur- 
diagramm zeigt Bild 6. 

Das Programm beginnt mit zwei 


SIE HATTEN SCHERE 
IHR GEGNER PAPIER 


SIE HABEN GEWDNNEN! 


SPIELSTAND: 
1:0 FÜER SIE! 


vorgeschalteten Blöcken, nämlich 
einer Überprüfung der Hardware 
und einer Kurzbeschreibung des 
Spieles. Nach der Aufforderung, 
die o.k.-Taste zu drücken, geht es 
weiter, wenn beide Spielpartner 
dies getan haben. 

Es folgt die Aufforderung, eine 
Taste, bedeutet Schere oder Stein 
oder Papier, zu wählen. Haben bei- 





de Spieler dies getan, so überprüft 
jeder Computer, wer gewonnen hat 
beziehungsweise ob das Einzelspiel 
unentschieden endete. Zwischener- 
gebnis und Zwischenstand werden 
angezeigt. Jeder Computer a 
ieler 


für sich die Siegpunkte von 







das Programmjenachdemmiteiner 
aufsteigenden beziehungsweise ab- 
fallenden Tonfolge. Auf Wunsch 
kann das Spiel (ohne die Einleitung) 
wiederholt werden. Drei Hardco- 
pys aus dem Spielverlauf zeigt Bild 
7. Das vollständige Programm zeigt 
Listing 1. 
— Für die Eingabe o.k., Schere, 
Stein beziehungsweise Papier sind 
im Programm die Funktionstasten 
Fl... F 4 vorgesehen. Dabei ist zu 
beachten, daß diese Tasten nicht 
schon anderweilig belegt sind (zum 
Beispiel beim Programmierhilfemo- 
dul). Eine Umprogrammierung auf 
andere Tasten ist leicht möglich. 
— Das Programm kann notfalls auch 
mit Hilfe der eingangs beschriebe- 
nen Ein-/Ausgabe-Platine auf richti- 
gen Äblauf getestet werden. 
— Das Knobelprogramm benötigt in 
der vorliegenden Form mindestens 
die 3-KByte-Erweiterung. Bei Ver- 
zicht auf die REM-Zeichen und Ver- 
wendung von Doppelbefehlen ge- 
nügt die Grundausführung des 
VC 20. 

(Albrecht Langenstein) 
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ven betrachten, sollten wir uns 

kurz mit den Grundlagen der 
Speicherung aufBand befassen. Die 
Ubertragungsgeschwindigkeit der 
Daten wird in Baud angegeben. Ein 
Baud bedeutet die Übertragung ei- 
nes Bitspro Sekunde. Die Daten wer- 
den durch bestimmte Frequenzen 
übertragen, die der Computer er- 
kennen und interpretieren kann. Da- 
bei muß ein bestimmter Takt einge- 
halten werden, damit die einzelnen 
Bits als solche erkannt werden kön- 
nen. Kommt es im Bandlaufwerk zu 
Geschwindigkeitsschwankungen, 
so können die Bits nicht richtig inter- 
pretiert werden, und es kommt zu 
Ladefehlern. Daher ist beider Beur- 
teilung von Bandlaufwerken die 
Laufgenauigkeit der Antriebsmoto- 
re ein entscheidender Faktor, den 
man nicht vernachlässigen darf. 


30 Zar 


B evor wir die einzelnen Alternati- 


Für die Commodore-Computer 
wird vom Hersteller selbst ein Band- 
laufwerk mit dem Namen Datasette 
angeboten (Bild 1, links). 


Die gute, alte Datasette 


Mit dem Preis von 155 Mark ist die 
Datasette der billigste, von Commo- 
dore angebotene Datenspeicher. So 
werden sich viele Kunden bei dem 
Kauf ihres Computers durch diesen 
Aspekt haben leiten lassen, da man 
als Neuling auf dem Computer- 
markt meist Angaben über Übertra- 
gungsgeschwindigkeit gar nichtein- 
ordnen kann. 

SokommtdasböseErwachenerst, 
wenn man größere Programme la- 
den oder speichern will. Man sitzt 
vor seinem Bildschirm und wartet, 
und wartet, und wartet... 
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Bei dem Programm »Zauber- 
schloß», (siehe Happy-Computer, 
Ausgabe 2/84), dessen Volumen zir- 
ka 18 KByte umfaßt, beträgt die La- 
dezeit über sechs Minuten. Da die 
Datasette über ihren Anschluß ver- 
hältnismäßig viel Strom benötigt, 
kannes, wenn andere Geräte mitan- 
geschlossen sind, zu Ladefehlern 
kommen, und man muß den gesam- 
ten Ladevorgang wiederholen. Dies 
ist besonders bei längeren Pro- 
grammen sehr ärgerlich. 

Trotz dieser Mängel ist die Data- 
sette eine preiswerte Älternative ge- 
genüber den sehr viel teureren 
Floppylaufwerken. Man muß bei 
der Arbeit mit der Datasette nur 
sehr viel Zeit mitbringen. 

Der Markt für Interfaces, mit de- 
nen man seinen eigenen Recorder 
anden Computer anschließen kann, 






wächst ständig. Wir haben aus dem 
Angebot zwei Interfaces ausge- 
wählt, um auch diese Möglichkeit 
vorzustellen. Das erste ist das Recor- 
der Interface von Jeschke (Bild 2). 
Dieses Interface wird für 49 Mark 
angeboten. Als wir dieses Interface 
angefordert haben, wurde uns mit- 
geteilt, nicht jeder Recorder wäre 
damit anzusteuern. In unserem Test- 
betrieb (hauptsächlich japanische 
Produkte) haben wir allerdings kei- 
nen Recorder gefunden, der die 
übertragenen Daten nicht akzep- 
tiert hätte. 


Der eigene Recorder 


Bei der Handhabung muß man al- 


lerdings einiges beachten. So muß 
man das Interface erst an den eige- 
nen Recorder anpassen, um die Mo- 
torsteuerung ausnutzen zu können. 
Eine ausführliche Anleitung, wie die 
Verbindungskabel angeschlossen 
werden müssen, liegt der Beschrei- 
bung bei. 
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Bild 1. Die Data- 
sette, der Data- 
Kassettenrecorder 
und ein Eigenbau- 
Interface für han- 
delsüblichen Kas- 
settenrekorder 


In der Produktvorschau dieser 
Firma wird für Ende Mai ein Steck- 
modul angekündigt, das mit dem In- 
terface zusammen bis zu zehn mal 
schnellere Kassettenroutinen er- 
möglichen soll. 


Die Heimwerkererlösung 


Im Gegensatz zu anderen Heim- 
computern wird beim © 64 der Kas- 
settenrecorder an einen speziellen 
Kassettenport angeschlossen. Zum 
Anschluß eines Recorders wird da- 
her ein spezieller Stecker benötigt. 
Dies ist schon der wesentlichste Un- 
terschied zwischen dem Recorder 
von Commodore und normalen Re- 
cordern. Der Computer erkennt die 
Daten, die vom Recorder eingele- 
sen werden nur dann, wenn sie in 
Form von Rechteckimpulsen am Port 
anliegen. 

Beim »Schreiben» der Daten auf 
Kassette werden zwar Rechteckim- 
pulse aufgenommen, durch das 
Band und den Aufnahme-/Wieder- 
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gabevorgang jedoch werden diese 
Rechtecke zu einem sinusförmigen 
Signal verformt. Diese Daten kann 
der Computer nicht mehr richtig in- 
terpretieren. Umdieszu vermeiden, 
ist eine kleine Schaltung erforder- 
lich, die bei der Datasette bereits 
eingebaut ist. 

Ferner besitzt diese einen kleinen 
Schalter, der beim Drücken einer 
Taste geschlossen wird. Daher kann 
der Computer feststellen, ob eine 
Taste gedrückt wurde. 

Mit etwas Geschick und Material 
für zirka 15 Mark kann auf einfache 
Weise ein Anschlußkabel gebaut 
werden. 


Die Schaltung 


Bild 3 zeigt die Belegung der Kon- 
takte am Kassettenport und die 
Schaltung. Im Baustein SN 7414 sind 
sechs invertierende SchmittTrigger 
enthalten, von denen zwei benötigt 
werden. Ein SchmittTrigger setzt 
(vereinfacht ausgedrückt) ein Sinus- 
signal in ein Rechtecksignal um. 

Da wir invertierende Schmitt 
Trigger haben, müssen wır zwei ver- 
wenden, damit die Polarität wieder 
stimmt. Das Wiedergabesignal vom 
Recorder läuft nun über die beiden 
SchmittTrigger und erhält so wie- 
der seine ursprüngliche Form. Die 
Spannungsversorgung (+5 Volt) 
kann direkt am Kassettenport abge- 
nommen werden. 

Die Schreibleitung, die Leselei- 
tung und die Leitung »Kassettenmo- 
tor« vom Computer werden an Klin- 
kenstecker auf der einen Seite und 
an einen Platinenstecker aufder an- 
deren Seite angelötet. 

Der IC 7414 kann in den Platinen- 
stecker eingebaut werden. Dazu 
sind die nicht verwendeten An- 
schlußbeine des IC und die 
nicht verwendeten Lötösen des 
Steckers abzuschneiden. Zu- 
nächst wird Pin 14 vom IC an 
Stift 2 des Steckers angelötet 
und das IC senkrecht gestellt 
(Bild 4). Pin 2 und Pin 3 werden 
direkt am IC verlötet. Von Pin 4 
wird eine Drahtbrücke nach 
Stift 4 gelötet, ebenso von Pin 7 
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werden. 
Der erwähnte Schalter im Com- 

, modore-Recorder wird hier 

‚durch eine Drahtbrücke (Stif 


in 6 und 1) im I latinen: 











| Drücken einer Taste auffor- 
| dert, so ist diese für den. 

IN ' Computer bereits gedrückt 

I und der Schreib-/Lesevor- 

gang beginnt sofort. Daher soll- 

en die entsprechenden Re- 

i ee schon gedrückt 

sein, Beispiel ein 
Programm 9 Ed wird. Eskann 

ıch ein kleiner Schalter an N 

Stelle der Drahtbrücke einge- 

baut werden. " \ 

HIN un u N Al 
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Da der Recorder seine Spannung 
vom Computer bekommt, sollten die 
Batterien herausgenommen oder 
der Netzstecker des Recorders ab- 
gezogen werden. Nach dem 
Schreib/Lesevorgang wird die 
Stromversorgung für den Kassetten- 
motor erst dann wieder freigege- 
ben, wenn der Computer erkennen 
konnte, daß am Recorder keine Ta- 
ste mehr gedrückt ist. Da aber statt 
des Schalters eine Drahtbrücke ein- 
gebaut ist, kann der Recorder nur 
noch dann eingeschaltet werden, 
wenn der Computer es »will«e Das 
kann beim Umspulen der Kassette 
unerwünscht sein. Wenn der Plati- 
nenstecker gezogen und wieder ge- 
steckt wird, ist das Problem beho- 
ben. Der Recorder sollte dabei aus- 
geschaltet sein. 

Der Zusammenbau ist für einen 
Bastler recht einfach. Wer jedoch 
keine Erfahrung im Umgang mit 
dem Lötkolben hat, sollte den Auf- 
bau lieber einem Freund überlas- 
sen. Das Interfacekabel funktioniert 
ohne Probleme auch bei den übri- 
gen Commodore-Computern. Die 
Bauteile sind im einschlägigen 
Fachhandel erhältlich. 

Das Interface (Bild 1, Mitte, 
Chinchstecker und Interface) funk- 
tioniert nur mit solchen Recordern, 
die mit einer Spannung von 4 bis 6 
Volt betrieben werden können und 
bei denen die Plusleitung nicht an 
Masse liegt. 

Die meisten Recorder erfüllen 
zwar diese Vorraussetzung, doch 
sollte man sich sicherheitshalber 
vergewissern. Testen kann man dies 
ohne Gefahr für den Recorder fol- 
gendermaßen: In den REMOTE- 
Eingang des Recorders einen Klin- 
kenstecker einstecken. Wenn der 
Recorder nun eingeschaltet wird, so 
läuft er nicht. 

Dann die Batterien aus dem Re- 
corder nehmen (oder Netzstecker 
ziehen) und eine 4,5 Volt Flachbatte- 
rie mit dem Pluspol am Außenstift 
des REMOTE-Steckers unddemMi- 
nuspol am Außenstift des MIC- 
Steckers anschließen. Der Recor- 
der muß nun wieder laufen und die 
Kassette sollte in der richtigen Rich- 
tung abgespielt werden. Wenn das 
nicht der Fall ist, dann ist dieser Re- 
corder nicht geeignet, 


Das Substitutprodukt 


Der Data Kassettenrecorder von 
Nettetaler Modell PM-4401 (Bild |, 
rechts) tritt als direkter Konkurrent 
der Original Datasette auf. Der Preis 
dieses Gerätes liegt bei 109 Mark. 
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Bild 4, Der pı, 
au Eipenbauisun eek 


Leider hatte unser Testgeräteinen 
Fehler, und das neue Testgerät hat 
uns vor Redaktionsschluß nicht 
mehr erreicht. Ein Test wird nachge- 
reicht. 


Der Superschnelle 


Die Übertragungsraten der bis- 
her vorgestellten Produkte sind 
sehr bescheiden. Will man mit ih- 
nen arbeiten, muß man viel Zeit mit- 
bringen. Dafür sind sie aber auch 
recht preiswert. 

Den stolzen Preis von 980 Mark 
muß man für das Minikassettenge- 








Bild 2 Das 
genen käufie 
nen Audio-Ap,, ne Merfape für den En 


rät FS-9600 (Bild 5) von Lothar Scha- 
nuel ausgeben. Für 680 Mark ist die 
Bausatz-Version dieses Gerätes zu 
bekommen. 

Die Schnelligkeit, die dieses Ge- 
rät an den Taglect, ist mehr als ver- 
blüffend. Mit einer Übertragungs- 
geschwindigkeit von 9000 Baud 
stellt die FS-9600 sogar das Floppy- 
Laufwerk 154] von Commodore in 
den Schatten. Wenn wir, wie schon 
bei der Datasette, wieder das Pro- 
gramm Zauberschloß heranziehen, 
werden die Zeitunterschiede deut- 


lich gemacht. So brauchte die Data- 
setteübersechs Minuten, um dieses 
Programm zu laden. Das Floppy- 
Laufwerk 1541 benötigt zirka 51 Se- 
kunden. Lädt man das Programm 
Zauberschloß mit dem Minikasset- 
tenlaufwerk, muß man nur noch zir- 
ka 28 Sekunden warten. 

Würde nur dieser Zeitvorteil be- 
stehen, wäre der Preis sicher nicht 
gerechtfertigt. Bei der FS-9600 han- 
delt es sich jedoch um ein »intelli- 
gentes» Gerät. So hat man hier alle 
Vorzüge, die sonst nur mit einem 
Floppy-Laufwerk realisiert werden 
können. Bei der Arbeit mit dem Mi- 
nikassettengerät steht zum Beispiel 
ein Inhaltsverzeichnis der Kassette 
zur Verfügung, man kann Blockwei- 
se editieren und es gibt eine »ÄR 

PEND» Funktion, mit der man 
Programme direkt aufder Kas- 
sette verketten kann. 

Positiv ist auch zu werten, daß bei 
auftretenden Fehlern eine Statusva- 
riable zur Verfügung steht, aus der 
man anhand einer Fehlerliste den 
auftretenden Fehler lokalisieren 
und beseitigen kann. 


Das Resultat: 


von 15 bis 980 Mark 


Wie wir gesehen haben, gibt es 
viele Möglichkeiten, Daten aufBand 
zu speichern. Finanziell reicht die 
Palette von zirka 15 Mark für die 
Heimwerkerlösung bis zu 980 Mark 
für die schnelle Minikassette 
FS-9600. Für welche Möglichkeit 
man sich entscheidet, bleibt wohl 
von der Änwendung und vor allem 
vom Geldbeutel abhängig. 


(M.Sandweg/rg) 
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an den © 64 ist zunächst nur der 

serielle Bus, an dem auch das 
Diskettenlaufwerk angeschlossen 
ist, vorgesehen. Dieses Konzept, 
mehrere Geräte an einer Schnittstel- 
le zu betreiben, hält zum einen die 
Anzahl der Anschlüsse am Compu- 
terin Grenzen, zum anderen genügt 
für die Verbindung ein einfaches 
Kabel. Des weiteren kann man sich 
auf ein einheitliches Protokoll zur 
Datenübertragung von und zu den 
Geräten beschränken (bei Commo- 
dore mittels OPEN, CLOSE, CMD, 
PRINT mit logischer Datei- und Ge- 
rätenummer). 

Der Nachteil dabei ist, daß man 
nur die von Commodore angebote- 
ne Peripherie direkt anschließen 
kann, wie zum Beispiel die Drucker 
1526, 1525, 1520 oder den MPS 801. 
Möchte man aber einen Drucker ei- 
nes anderen Herstellers wie zum 
Beispiel einen Epson MX/RX und 
FX-80 (Bild 1) anschließen, ist es mit 
einer einfachen Kabelverbindung 
oft nicht mehr getan. Standard bei 
Druckern ist nicht der serielle Bus 
von Commodore, sondern die Cen- 
tronics- und die RS232-Schnittstelle. 
Die Epson-Drucker sind dabei in 
der Regel mit einer Centronics- 
Schnittstelle ausgestattet. 


F: den Anschluß eines Druckers 


nA Mika 








Bild 2. 

Das Verbindungs- 
kabel vom User- 
Port zur 
Centronics- 
Schnittstelle 


De 
. . 
— EEE F u 


Die Lösung dieses Änschlußpro- 
blems ist auf zwei verschiedenen 
Wegen möglich. Entweder wird ein 
vergleichsweise teures Interface 
zwischen C 64 und dem Epson zwi- 
schengeschaltet beziehungsweise 
in den Drucker eingebaut, oder, 
was preiswerter und flexibler ist, es 
wird der User-Port als Centronics- 
Schnittstelle programmiert. 

Voraussetzung dafür ist aller- 
dings, daß der User-Port nicht an- 
derweitig benötigt wird (EPROM- 
Brenner, Modem, RS232 etc.). Von 
der elektronischen Seite gibt es ge- 
gen eine Direktverbindung keine 


GC 64 


Ein Beweis für die 
Vielseitigkeit des User- 
Ports ist seine Pro- 
grammierung als 
Centronics-Schnittstelle. 
Daß dies mit wenig 


Material, einem Lötkolben und einer Stunde 
Zeit zu realisieren ist, zeigt dieser Bericht 


am Beispiel der 
Epson-Drucker. 


a ER ie» 





Einwände, solange der Eingang am 
Drucker den mit dem User-Port ver- 
bundenen CIA nicht mehr als mit 
den im Datenblatt spezifizierten 3.2 
mA im Low-Zustand pro Signallei- 
tung belastet. Wir haben an einem 
Epson-FX-80-Drucker einen Ein- 
gangs-Kurzschlußstrom von 1,6 mÄ 
gemessen, womit ein sicherer Be- 
trieb des CIA garantiert ist. Außer 
dem beschriebenen Kabel ist keine 
weitere Hardware erforderlich. 
Man benötigt nun einen 24poligen 
User-Port-Stecker (zum Beispiel 
TRW- 251-12-50-17081/350-4SN-9) so- 
wie einen 36poligen Centronics- 
Stecker (zum Beispiel Amphenol 
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Bild 1. Der Epson-FX-80-Drucker 


Bild 3. Der Verkabe 


Drucker 


Pin Nummer Bezeichnung 


57-30360). Die Centronics-Konven- 
tion verlangt ein abgeschirmtes Ka- 
belund schreibt vor, daß alle Signal- 
leitungen mit einer eigenen Signal- 
masse-Leitung verdrillt werden 
müssen. Unser C 64 arbeitet aber 
trotz Verzicht auf diesen Aufwand 
bisher fehlerfrei mit einem FX-80 zu- 
sammen. 

Das Kabel (Bild 2 und 3): Es müs- 
sen elf Verbindungen hergestellt 
werden (Flach- und Rundkabe!). 


Die Treibersoftware 


Die Software arbeitet einwandfrei 
mit Programmen zusammen, die ei- 
ne ASCII-Ausgabe-Option besitzen, 
wie dies bei den meisten Textverar- 
beitungsprogrammender Fall ist. Es 
soll hier auch lediglich der Hard- 
und Software-Kern der Schnittstelle 
dargestellt werden. 

Das Programm ist mit 87 Byte Län- 
ge sehr kurz und kann damit im 
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User-Port 


Bezeichnung Pin Nummer 


M 
c 
D 
E 
F 
H 
J 
K 
L 
B 
A 





Kassetten-Puffer ($033C bis $03FB), 
oder wie hier im sonst ungenutzten 
Bereich ($02A7 bis $02FF) unterge- 
bracht werden. Es wirkt wie folgt: 
Die Standard-Zeichenausgaberouti- 
ne des Betriebssystems, CHROUT, 
wird durch einen geänderten Vek- 
tor in das Erweiterungsprogramm 
umgeleitet. Dieses überprüft, ob die 
Ausgabe über Gerätenummer 4 
(Standardnummer für Drucker) er- 
folgen soll. Wenn nicht, springt es 
sofort in das Betriebssystem zurück. 
Ansonsten wird das zu übertragen- 
de Byte an CIA2 Port B gelegt und 
über einen Strobe-Impuls über Port 
A, Bit 2 dem Drucker mitgeteilt, daß 
die anliegenden Daten gültig sind. 
Der Drucker qauittiert den Daten- 
empfang über das Acknowledge- 
Signal. Dieses setzt am C 64 über 
den FLAG-2-Eingang Bit 4 des 
Interrupt-Registers von CIA 2. Der 
CIA wird so programmiert, daß da- 
durch aber kein Interrupt ausgelöst 
wird. Das Programm wartet viel- 


mehr, bis dieses Bit gesetzt ist, löscht 

es beim Auslesen automatisch und 

springt erst dann in das rufende 

Hauptprogramm zurück. Damit ist 

ein voller Handshake gewährleistet. 
Aus dem Assemblerlisting (Bild 4) 

geht eine Gliederung in drei Ab- 

schnitte hervor: 

1. Zeile 190-280 

Abfrage, ob Ausgabe über Geräte- 

nummer 4 erfolgen soll 

Bei ASCII-Code 13 (Carriage Re- 

turn) wird automatisch noch ein 

ASCII-Code 10 (Line Feed) gesen- 

det. Durch Weglassen der Zeilen 

250 bis 280 wird kein automatischer 

Line Feed gesendet. 

2. Zeile 320-420 

Ausgabe eines Byte 

3. Zeile 500-670 

Programmierung des CIA2 für die 

Ausgabe. Umstellen des Ausgabe- 

vektors auf den Programmteil 1 


Die praktischen 
Anwendungen 


Der Umgang mit dieser Schnitt- 
stelle gestaltet sich im praktischen 
Betrieb recht einfach und problem- 
los. Das Programm wird in der vor- 
liegenden Form in den Bereich 
$02A7 bis $02FD geladen und durch 
Aufruf des Initialisierungsteils (SR 
$02D4 beziehungsweise SYS 724) für 
die Druckausgabe vorbereitet. Das 
kann zum Beispiel der angefügte 
Basic-Lader (Bild 5) übernehmen. 
Man kann dann zum Beispiel ein 
Basic-Programm mit folgender Se- 
qauenz listen: 

OPEN 1,4: CMD 1: LIST 

Damit werden sämtliche Daten 
über den Drucker ausgegeben und 
nach: 

PRINT # 1: CLOSE 1 
werden die Daten wieder auf den 
Bildschirm ausgegeben. 

Man beachte, daß nach Drücken 
der Kombination RUN/STOP RE- 
STORE (non maskable Interrupt) 
sämtliche Zeiger auf ihre Standard- 
werte zurückgestellt sind. Deshalb 
muß die Schnittstelle durch SYS 724 
wieder neu initialisiert werden. 

Die Möglichkeiten, einen Drucker 
wie den Epson MX/FX-80 mit ei- 
ner solchen Schnittstelle zu betrei- 
ben, sind beinahe unbegrenzt. So ist 
es beispielsweise möglich, ein 
Hardcopyprogramm zu schreiben, 
mit dem Ausdrucke in der Form des 
Bildes 6 ausgedruckt werden kön- 
nen. Ein Epson FX-80 braucht für ein 
solches Bild etwa 32, in doppelter 
Größe zirka 70 Sekunden. Auch ist 
es möglich, im Grafik-Modus einen 
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100 PRIN 

T"LOA 

10 D 

5 a le f 
nn an Wat N 


110 PRIN 
T’ 
120 PRINT THOMAS KRAE 
" Tıls 21 
2.84" N 


130 R BITTE 6E 

140 FÜR 100 et 

I 0 10 86 DEN" x 
160 NEXT E 679+1,X \ 
180 SYS 724 = 
190 END 





191 DATA 
72,1 
192 DATA ‚165,154,2 
141 ‚201,4,2 
19 ‚it 22 ’ 40 3 
cH DATA16,240 21, 178,5,221 A 11,141,0,22, 2 
194 DATAO 221 9,4 120 '381120.109,255,181.302 BAT n » 
\ 195 DaTaıs? 1nyt1e 0,221 ‚255, 141,3, 22 ee 
‚2,141,39 ‚189,16 „3,221,173 en 2 
RENT ae 1141,13,221,173 vEn2alı ya ia. 
' "221,189, ‚2,221,173 
‚167,141 : 
‚38,3 
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Bild 5. Der Basic-Lader 
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Nachdem wir in der letzten Ausgabe ein einfaches Spiel entwickelt haben, das zum 
Teil mit Struktogrammen dokumentiert wurde, bringen wir jetzt den Rest des Listings 
und eine Gegenüberstellung von Flußdiagramm und Struktogramm. 


TAC TOE» ist recht einfach. 

Nach gründlicher Überlegung 
könnte man dieses Programm sofort 
kodieren. In der Präxis und mit 
wachsender Programmiererfah- 
rung werden die Aufgaben jedoch 
bald umfangreicher sein, Professio- 
nelle Programmierer fertigen sich, 
bevor sie anfangen zu kodieren, ei- 
ne grafische Darstellung des Pro- 
grammlösungsweges an. Grafiken 
überblickt der Mensch wesentlich 
schneller alseinfachen Text oder so- 
gar Zahlenkolonnen. Das wohl am 
häufigsten eingesetzte grafische 
Hilfsmittel ist der Programmablauf- 
plan (auch Flußdiagramm, Blockdia- 


D iese Ausführung des Spiels »TIC 


1B REM suunnnnnnnnnnnnnnnn ann unnenernee 


28 REM = KREUZ UND QUER ® 
38 REM #muennnnnnnnunenunun une 
928 PRINT"L" 


188 DIMSS(9):DIMBW (8) 

118 GOSUBI18@8:REM SPIELFELD INITIALISIER 
EN 

128 GOSUB2888: REM ANZEIGEN 

138 GOSUBIBBB:REM ZUG HOLEN 

148 GOSUB2888:REM ANZEIGEN 

158 GOSUB4BBB:REM AUF SPIELENDE PRUEFEN 
168 GOSUBSBB9: REM COMPUTERZUG 

178 GOSUB2B88: REM ANZEIGEN 

188 GOSUB488B:REM AUF SPIELENDE PRUEFEN 
198 G0T0138 

1808 REIT ——— nn nn nn nn nn nn 
1818 REM INITIALISIERUNG 

19828 : 

1188 FORP=1T09 

1118 :SStP}=B 

1128 NEXTP 
1138 RETURN 
22088 REM-——— 

2818 REM ANZEIGEROUTINE 

2828 : 

2188 FORP=1T0? 

2118 :IFSS(P)=1THENPRINT"X"; 

2128 :IFSS(P)=-1THENPRINT"O"; 

2138 : IFSStPI=BTHENPRINT"."; 

2148 : IFINT(P/3)=P/STHENPRINT 

2158 NEXTP 

2168 PRINT:PRINT 

2178 RETURN 

33898 REI——————-—— 
3@1@ REM SPIELERZUG 

3828 : 

3848 INPUT"GIB ZUG EIN ";P 

3258 IFSS(P)<>BTHENPRINT"DIESES QUADRAT 
IST BESETZT":GOTOSB2D 

38658 SS(P)=1 

3878 RETURN 

35098 : 


gramm oder im Englischen: Pro- 
gram Flowchart genannt). Es wird je- 
doch in den letzten Jahren immer 
mehr von Struktogrammen (auch 
Nassi-Shneidermann-Diagramm 
oder NS-Diagramm genannt) abge- 
löst. Der Hauptgrund war wohl die 
Entwicklung höherer Programmier- 
sprachen, die eine Strukturierung 
eines Programms zulassen. Vor al- 
lem sind das Pascal, Fortran 77, Co- 
bol, und P\/1. Selbst die neuesten Ba- 
sic Versionen (zum Beispiel das ex- 
tended Microsoft-Basic oder, etwas 
eingeschränkt, das Basic 3.5 der 
neuen Commodore 16 und 264) be- 
sitzen Befehle, die eine Strukturie- 
rungeines Programms zulassen. Da- 


ABER REM--—-——-- 
4018 REM AUF SPIELENDE PRUEFEN 

4820 : 

4940 GOSUBSEDOR 

4858 FORP=1T08 

4868 : IFEW(P)I=-STHENPRINT"ICH GEWINNE“:E 
ND 
4978 
D 
4888 NEXTP 

4898 FORP=1T09 

4198 : IFSS(P)=BTHENRETURN 

4118 NEXTP 

4128 PRINT"UNENTSCHIEDEN":END 

4130 : 

5888 REN-—---------- 
5818 REM COMPUTERZUG 

5028 : 

5838 GOSUBLBBO 

59848 MT=B 

S856 FORP=1T08 

s848 : IFBW(P) =-2THENGOSUB7888: RETURN 
5878 : IFBW(P) =2THENMT=MT+1 

5888 NEXTP 

5098 IFMT=2THENPRINT"AUCH GUT. ANGEBER!“ 
:END 

5188 IFMT=1THENGOSUBEBBB: RETURN 

5118 GOSUBIB28 

5128 RETURN 

5130 : 

EINS H REIS ses enneen Bea Sen ont patn Peer E Eee er een 
6818 REM SPIELFELD BEWERTEN 

6920 : 

6830 : 

6849 BW(1)=SS(1)+55L2)+55S 3) 

69858 BW(2)=SS(4)+55(5)+55 6) 

sB4L8 BWL3)=SS(7)+5S (8) +55 (9) 

6078 BW(4)=SS1(1)+55(4)+55 7) 

6888 BW (5) =SS(2)+5SS(5)+55 (8) 

6893 BW(&)=SS(3)+55(6)+55 19) 

6188 BWI7I=SS1)+55 15) +55 19 

s118 BW(O)=SS(3)+5S(5) +55 17) 





: IFBW(P)=ISTHENPRINT"DU GEWINNST":3EN 


mit ist vor allem der vollkommene 
Verzicht von GOTO-Sprunganwei- 
sungen gemeint. Im Gegensatz zu 
Programmablaufplänen (PAP) ist in 
Struktogrammen eine Darstellung 
von GOTO-Befehlen nicht vorgese- 
hen und wird somit auch nicht unter- 
stützt. Wer mit normalem Standard- 
Basic arbeitet, das keine Strukturie- 
rungsbefehle wie IF.THEN..ELSE, 
REPEAT UNTIL, DO WHILE und so 
weiter kennt, braucht dennoch nicht 
auf Struktogramme verzichten. 
Wenn man sich an die im Heft 4/84 
beschriebenen Regeln zur Struktu- 
rierunghält, isteine Anwendung von 
Struktogrammen sogar recht sinn- 


voll. 
Fortsetzung auf Seite 40 


6128 RETURN 

6130 : 

7888 REM---------------------- 
7218 REM SIEGZUG 

7028 : 

7848 GOSUB?988 

7250 GOSUBs22D 

7868 FORF=1T08 

7878 : IFBW(P)=-STHENRETURN 

7888 NEXTP 

7898 GOSUB1B080 

7188 GOTO7288 

711® : 

7128 : 

en age Se en ren gar Tore iar nem oee 
8818 REM SPERREN 

8939 : 

8048 GOSUBIBBD 

8958 GOSUBSDBB 

89640 F=O 

8978 FORP=1T08 

8888 : IFBW(P)=2THENF=1 

82398 NEXTP 

8188 IFF=BTHENRETURN 

8118 GDSUB108082 

81209 GOTO8988 

8138 : 

RBB REN —— 
99108 REM ZUFALLSZUG 

9828 : 

97848 CM=I#RND (DB) +1 

9858 IFSS(CLM)<>BTHENIBDBB 

7868 SSICM)I=-1 

93878 RETURN 

9888 
37978 
000m) RENTE een 
18818 REM ZURUECKNEHMEN 

18838 : 

18848 SS(CMI=B 

100958 RETURN 


.- 


Listing. Das im letzten Heft entwickelte Spiel »TIC TAC TOE» als komplettes Listing. Verbessern Sie die Grafik und die Strategie. 
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Doch zunächst möchte ich Ihnen 
die Symbolik des PAP vorstellen. 
Schauen wir uns die Tabelle an. 
Hier sind die wichtigsten und ge- 
bräuchlichsten Elemente des PAP 
aufgeführt. 

Symbol 1: Bearbeitung 

Man trägt Anweisungen ein; die 
Schreibweise der Eintragung orien- 
tiert sich oft an der zu verwenden- 
den Programmiersprache. Es kann 
auch eine Gruppe von Änweisun- 
gen eingetragen werden. 

Symbol 2: Verzweigung 

Wenn in einem Programm in Äb- 
hängigkeit einer Bedingung der li- 
neare Ablauf unterbrochen werden 
soll, erfolgt die Eintragung der Be- 
dingung in diesem Symbol. 

Symbol 3: Unterprogrammaufruf 

Hier wird die Bezeichnung eines 
Unterprogramms eingetragen. In 
Basic setzt man am Besten noch die 
Anfangszeilennummer dazu. 
Symbol 4: Programmodifikation 

Hierträgt man eine Aktion ein, die 
den Ablauf an einer zeitlich dahin- 
terliegenden Stelle ändert (wird sel- 
ten gebraucht). 

Symbol 5: Operation von Hand 

In manchen Programmen kommt 
es vor, daßaneiner bestimmten Stel- 
le die Diskette oder Kassette ge- 
wechselt werden muß. Diese Aktion 
wird hier eingetragen. 

Symbol 6: Eingabe, Ausgabe 

Man benutzt dieses Symbol im- 
mer, wenn eine Eingabe- oder Äus- 
gabeanweisung im Programmab- 
lauf auftritt. Man trägt dabei die Art 
der Ein-/Ausgabe ein (INPUT oder 
PRINT oder ähnliches) und den Da- 
tensatz, der gelesen oder geschrie- 
ben wird. 

Symbol 7: Flußlinie 

Sie verbindet die Symbole mitein- 
ander. Die Pfeilspitzen können weg- 
gelassen werden, wenn die Fluß- 
richtung eindeutig ist (normalerwei- 
se immer von oben nach unten, von 
links nach rechts). F 
Symbol 8: Konnektor, Übergangs- 
stelle 

Die Eintragung ist beliebig. Die- 
ses Symbol wird benutzt, um nicht 
durch zu viele Flußlinien die Über- 
sicht zu verlieren. 

Symbol 9: Grenzstelle, Anschluß- 
marke 

Dieses Symbol enthält eine Be- 
zeichnung von Programmbeginn 
und -ende sowohl von Haupt- als 
auch von Unterprogrammen. 
Symbol 10: Bemerkung 

Falls der Platz innerhalb eines 
Symbols nicht ausreicht, um es zu 
beschriften, kann man mit diesem 
Symbol eine Bemerkung hinzufü- 
gen. 








1. OPERATION, allgemein 

Insbesondere für Operationen, die im folgenden 
nicht besonders aufgeführt sind. Zum Beispiel: Be- 
rechnungen, Zuweisungen, Dimensionierungen und 
so weiter 


2. VERZWEIGUNG 
Ein Sonderfall der Verzweigung ist der program- 
mierte Schalter. 


3. UNTERPROGRAMM 

Ein Unterprogramm muß nur einmal näher darge- 
stellt werden. Im PAP genügt dann der Hinweis, 
wann welches Unterprogramm eingesetzt wird. 


4. PROGRAMMODIFIRATION 
Zum Beispiel das Stellen von programmierten Schal- 
tern.oder das Ändern von Indexregistern. 


5. OPERATION VON HAND 
Zum Beispiel Formularwechsel, Bandwechsel, Ein- 
griff des Bedieners bei der Prozeßsteuerung. 


6. EINGABE, AUSGABE 

Ob es sich um eine maschinelle oder manuelle Ein- 
oder Ausgabe handelt, soll aus der Beschriftung 
hervorgehen. 


7. ABLAUFLINIE, ZUSAMMENFÜHRUNG 
Vorzugsrichtungen sind: von oben nach unten, und 
von links nach rechts. Abweichungen können durch 
Pfeile deutlich gemacht werden. Zwei sich kreuzen- 
de Ablauflinien bedeuten keine Zusammenführung. 


8. ÜBERGANGSSTELLE 
Der Übergang kann von mehreren Stellen aus, aber 


9. 


nen 


nur zu einer Stelle hin erfolgen. 


A GRENZSTELLE 


Für A kann zum Beispiel Beginn, Ende, Zwischenhalt 
eingeschrieben werden. 


BEMERKUNG 


Dieses Sinnbild kann an jedes Sinnbild dieser Norm 


angefügt werden. 


Tabelle 1: Sinnbilder für Programmablaufpläne 


Unternehmen gehen bei Pro- 
grammiervorhaben immer mehr da- 
zu über, anstatt von Flußdiagram- 
men Struktogramme einzusetzen. 
Sie zwingen den Programmierer zu 
einer übersichtlichen Programmie- 
rung und erlauben es ihm nicht, 
durch viele GOTOs das Programm 
»undurchsichtig» zu machen. Wenn 
man Struktogramme verwendet, 
kann man auf Programmablaufplä- 
ne völlig verzichten. Als Program- 
mierer sollte man beide Darstel- 
lungsarten kennen, denn Pro- 
grammablaufpläne und Strukto- 


gramme werden noch lange neben- 
her bestehen. 


Jede Aufgabenstellung läßt sich 

mit den folgenden Grundstrukturen 
lösen: 
ee Ernten werden 
zu Strukturblöcken zusammenge- 
setzt und sind beliebig ineinander 
verschachtelbar. 
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Anweisungen 
Anweisungen 











Änweisungen 
Änweisungen 
Änweisungen 






Änweisun- 
gen] 





als PAP: als Struktogramm: 







Anweisungen Anweisungen 


REPEAT, wenn 
Wiederholungsbedingung 
erfüllt ist 





Wieder- 
holungsbedin- 


gung 





Anenahe A/hıni 19R4 














Änweisun- 
gen2 





oO 
} 
£ 
£ 





holungsbedin- 
gung 


Wiederholungsbedingung 
























Änwei- 
sungen 
2 


Änwei- 
sungen 
3 


Änwei- 
sungen 
N 


Änwei- 
sungen 
1 








Fortsetzung auf Seite 58 
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legte Hardwarekonzeption des 

I Commodore 64 erst mit einer 
leistungsfähigeren Sprache bezie- 
hungsweise Spracherweiterung voll 
zum Tragen kommt, steht außer 
Zweifel. Das bei Commodore seit 
langem bestehende Mißverhältnis 
zwischen der hard- und softwaremä- 
Bigen Grundausstattung der Geräte 
wardaher auch seitlängerer Zeit für 
einige Software-Anbieter Anlaß, 
sinnvolle Erweiterungen des Be- 
triebssystems und des  Basic- 
Sprachumfangs zu entwickeln. 

Exbasic Level II wurde ursprüng- 
lich für die älteren und größeren 
Commodore-Computer als fest zu 
installierender Hardware-Zusatz 
konzipiert. Die vorliegende C 64- 
Version kann diese Herkunft nicht 
leugnen, da sie nur bedingt an die 
neuen Möglichkeiten dieser Ma- 
schine angepaßt erscheint. Wäh- 
rend zum Beispiel Simons Basic ein- 
deutig neu für den C 64 entwickelt 
wurde und die grafischen und aku- 
stischen Fähigkeiten des C 64 voll 
unterstützt, hat man mit Exbasic Le- 
‚vel ll eher ein Produkt für kommer- 
zielle Programme, also zum Beispiel 
solche aus dem Business-Bereich in 
der Hand. 

Exbasic wird als Erweiterungsmo- 
dul (siehe Bild) zusammen mit zwei 
Handbüchern geliefert. Der Vorteil 
dieser, gegenüber einer reinen Dis- 
kettenversion, teureren Lösung 
spürt man deutlich, wennmanregel- 
mäßig mit Exbasic arbeitet, da 
durch die langsame Übertragungs- 
geschwindigkeit vom Laufwerk zum 
C64 für8KByte schon eine beträcht- 
liche Ladezeit benötigt wird. Man 
steckt einfach das Modul in den 
Expansion-Port und erhält bereits 
nach dem Einschalten eine entspre- 
chende Startmeldung. Es belegt 


D aß die auf Vielseitigkeit ausge- 


AN 

















den Speicherbereich $8000 bis 
$9FFF. man hatalso 8KByte weniger 
Speicherplatz zur Verfügung. als 
sonst. 

UnbequemeristdaschondieLek- 
türe der beiden Handbücher: Das 
stärkere gelbe Buch beschreibt die 
ExbasicVersionen für die älteren 
Commodore-Computer in einem zü- 
gig lesbaren, lockeren Stil, mit vie- 
len kleinen Beispielen. Um aber mit 
der C 64-Version zurecht zu kom- 
men, muß man gleichzeitig das 
blaue Ergänzungsbuch lesen. Darin 
findet man neben vielen Verweisen 
auf das Handbuch Hinweise zu Be- 
fehlen, die es in der C 64Version 
nicht gibt, zu erweiterten Parametri- 
sierungen von existierenden Befeh- 
len und Beschreibungen von sol- 
chen Befehlen, die speziell für den 
C 64 dazugekommen sind. Man soll- 
te sich also, um Frustration zu ver- 
meiden, beim Studium. von dem 
blauen Ergänzungsbuch leiten las- 
sen. Die Befehlsübersicht in diesem 
Artikel soll den Überblick erleich- 
tern. 


















Die einzelnen Gruppen, in die 
man die Befehle gliedern kann, sol- 
len im folgenden besprochen wer- 
den. Dabei verdienen manche Be- 
fehle noch eine besondere Erwäh- 


Hilfsfunktionen 


Diese dienen dazu, das Erstellen 
und Testen von Basic-Programmen 
komfortabler zu gestalten. Es wur 
den dabei einige sinnvolle Eigen- 
schaften realisiert, die sich nicht di- 
rekt durch Schlüsselwörter aus- 
drücken lassen. So kann man ein 
Programm komfortabel mit Hilfe der 
Cursortasten listen: Drückt man am 
unteren Bildrand die Cursor-down- 
Taste, so werden weitere Zeilen geli- 
stet, während das Bild nach oben 
rollt. Für den oberen Bildrand und 
die Cursor-up-Taste gilt entspre- 
chendes. Wird ein Programm feh- 
lerhaft abgebrochen, so wird nicht 
nur eine Fehlermeldung abgesetzt, 
sondern auch die fehlerhafte Zeile 
mit dem Cursor an der fehlerhaften 
Stelle angezeigt. Diskettenbefehle 
werden abgekürzt (entsprechend 
den Möglichkeiten des DOS 5.1 auf 
der Demodiskette): 





> 
' 

f 
n 
£ 

€ 
> 









lädt ein Programm und startet es 


speichert ein Programm auf Disk 

fragt den Fehlerkanal des Laufwerks ab 

zeigt das Inhaltsverzeichnis an, ohne das Programm im 
Speicher zu zerstören 

sendet einen Befehl an das DOS 





LOAD und SAVE bezeichnen Kas- 
settenbefehle. Diese laufen in Exba- 
sic mit fünffacher Geschwindigkeit 
ab. 


FIND 

Damit kann man alle Zeilen voll- 
ständig listen lassen, die einen an- 
gegebenen Suchstring an irgendei- 
ner Stelle enthalten. So werden zum 
Beispiel mit FIND REM alle Kom- 
mentarzeilen gelistet. Mit FIND A$ 
kann man sich alle Stellen, an denen 
auf die Variable A$ zugegriffen 
wird, listen lassen. Zum Editieren 
von Programmen ist diese Möglich- 
ni von nicht zu unterschätzendem 

ert. 


RENUM 

Exbasic unterstützt weniger als Si- 
mons Basic das strukturierte Pro- 
grammieren. Sprünge und Aufrufe 
von Unterprogrammen sind immer 
mitder Angabe von Zeilennummern 
verbunden, Dem trägt aber der Be- 
fehl RENUM Rechnung. RENUM 
nummeriert nicht nur (wie bei Si- 
mons Basic) die Zeilennummern 
neu, sondern ändert auch die Argu- 
mente aller Befehle, die sich auf Zei- 
lennummern beziehen, wie GOTO, 
GOSUB, THEN und 50 weiter, sinn- 
gemäß ab, so daß, wie man es ei- 
gentlich auch erwartet, das umnum- 
merierte Programm lauffähig bleibt. 


TRACE 

Dieser Befehl schaltet einen Mo- 
dus ein, in dem jede aktuelle Be- 
fehlszeile eines laufenden Pro- 
gramms in der ersten Bildschirmzei- 
le kurz angezeigt wird, Bei Zeilen 
mit mehreren Befehlen steht sogar 


der Cursor auf dem jeweils aktuel- 
len Befehl. So lassen sich zum Bei- 
spiel auch bedingte Anweisungen 
gut mitverfolgen. Verlangsamung 
des Vorgangs und auch Einzel- 
schrittbetrieb sind mit der CTRL- 
Taste möglich. Durch Drücken der 
CommodoreTaste läuft das Pro- 
gramm wieder schneller. Da die Be- 
fehle TRACE und TRACE OFF auch 
programmierbar sind, kann man 
sich in einem Programm auch ge- 
zielt Teile, die man testen will, »tra- 
cen« lassen. 


SPACE 

Um Speicherplatz zu sparen, eli- 
miniert Exbasic alle Blanks in Pro- 
grammen außer in Kommentaren 
und in Texten, die durch Apostro- 
phe begrenzt werden. Durch den 
Beiehl SPACE (ohne Parameter) 
werden beim Listen (nicht im Pro- 
gramm selbst) wieder Blanks einge- 
fügt, um die Übersichtlichkeit eines 
Programms zu wahren. 


BASIC 

Dieser Befehl desaktiviert Exba- 
sic, was außer einem geringen Ge- 
schwindigkeitsgewinn bei Stan- 
dard-Basic-Programmen eigentlich 
nichts bringt. Er wird allerdings not- 
wendig, wenn man mit den Disket- 
tenbefehlen LOAD"name"8 und 
LOAD"name"81 oder 'SAVE"na- 
me',8 arbeiten will, oder wenn das 
Programm diese Befehle enthält. 
Diese Befehle wirken in Exbasic un- 
erfreulicherweise auf Kassette und 
nicht auf die Disk. Exbasic kann mit 
PRINT USKR(0) wieder gestartet wer- 
den. 


Software-Test 


MERGE 

Hiermit kann man ein Programm 
von Diskette oder Kassette zu einem 
Programm im Hauptspeicher dazu- 
laden. Das nachzuladende Pro- 
gramm sollte Zeilennummern ha- 
ben, die von denen des vorhande- 
nen Programms verschieden sind, 
ansonsten bedarfdas Mischprodukt 
noch einer manuellen Nachbehand- 
lung, da doppelte Zeilennummern 
auftreten. Die richtige Form des Be- 
fehls fürdas Nachladen von Diskette 
ist übrigens: 
MERGE* "programmname!, 8 


KEY 

Durch die Möglichkeit, die f 
Tasten mit beliebigen Texten zu be- 
legen (einschließlich RETURN 
durch die Taste »—«) werden die qgu- 
ten Editierfähigkeiten von Exbasic 
abgerundet, 


Kontrollstrukturen 

Da Exbasic mehr das zeilennum- 
mern-orientierte Programmieren 
unterstützt findet man hier nur spär- 
liche Möglichkeiten. Die von PAS- 
CAL her bekannten Konstruktionen 
wie WHILE ... DO oder REPEAT. ... 
UNTIL wird man hier vergeblich su- 
chen. Das eigentlich schon zum 
Standard gehörende IF ... THEN ... 
ELSE gibt es aber auch in Exbasic. 


DISPOSE 

Der Nutzen dieses Befehls er- 
scheinteher zweifelhaft. Erläßtzwar 
manchmal trickreiche und kurze 
Programme zu, untergräbt aber das 
Konzept von strukturierten Program- 
men. Der Interpreter verwaltet für 
Schleifen und  Unterprogramm- 
sprünge einen Stack, aufdem Rück- 
sprungadressen und Namen von 
Laufvariablen gehalten werden. 
Diesen Stack kann man mit DISPO- 
SE manipulieren, So kann man mit 
DISPOSE NEXT. eine Schleife ab- 
schließen, um sie dann mit GOTO ir- 
gendwo zu verlassen, DISPOSE RE- 
TURN schließt eine Unterpro- 
grammebene ohne Rücksprung ab. 
Man muß dann das Unterprogramm 
mit einem GOTO verlassen. DISPO- 
SE CLR löscht den gesamten Stack. 
Die Beispiele im Handbuch zu DI 
SPOSE sind nicht sehr gelungen. Ei- 
ne vernünftige Anwendung ergibt 
sich meiner Änsicht nach nur im Zu- 
sammenhang mit einer program- 
mierten Fehlerbehandlung. 
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> Fehlerbehandlung 


Die Befehle zur Fehlerbehand- 
lung sind sehr nützlich und sinnvoll. 
ON ERROR GOTO 


Wenn dieser Befehl einmal abge- 


arbeitet wurde, bricht bei einem 
späteren Fehler das Programm 
nicht ab, sondern springt an die bei 
ONERROR GOTO angegebene Zei- 
lennummer. Dort kann der Benutzer 
seine eigene Fehlerbehandlungs- 
routine unterbringen. Dazu stehen 
ihm zur Information die Variablen 
EC (Error Code) und EL (Error Line) 
zur Verfügung. EC enthält die Num- 
mer des Fehlers gemäß einer Liste 
im Handbuch, EL die Zeilennum- 
mer der Zeile, in der der Fehler auf- 
getreten ist. Die Fehlerbehand- 
lungsroutine wird mit einer der drei 
RESUME-Varianten verlassen (siehe 
Tabelle), 


Ein- und Ausgabebefehle 


Diese machen neben den Hilfs- 
funktionen die eigentliche Stärke 
von Exbasic aus. Mit wenigen, aber 
leistungsfähigen Befehlen ist eine 
vielfältig formatierbare Ausgabe 
möglich. Man kann auch sehr ein- 
fach gegen Fehlbedienung gesi- 
cherte Eingabemasken realisieren. 


INPUTFORM 

Dieser Befehl gestattet es, neben 
der Ausgabe eines Textes, ein Ein- 
gabefeld in Position, Länge und Far- 
be zu definieren. Gleichzeitig wird 
mit diesem Befehl eine Eingabe 
über dieses Feld angefordert. Da- 
bei ist es nicht möglich, über das 
festgelegte Feld hinauszuschreiben. 
Eingegeben werden können alle 
Zeichen außer den Cursor-Steuer- 
zeichen. Mit DEL kann man einzelne 
Zeichen löschen, mit »—« den gan- 
zen Text. 


PRINT USING 

Formatierte Ausgabe von Dezi- 
malzahlen wird hiermit ermöglicht. 
Es wird ein Formatstring ausgege- 
ben, der beliebig Textsowie Format- 
zahlen enthalten darf. Bei der Aus- 
gabe werden dann die Formatzah- 
len durch aktuelle Zahlen aus der 
Variablenliste ersetzt. Eine Format- 
zahl setzt sich aus Th 
N." | Herr \ „m „ 123 und „ En 
zusammen, Dabei Man "#" und 
"*" für Dezimalstellen. Beispielswei- 
se führt PRINT USING "DM 
##%#,##' 2000/3 zu DM 666,67 


Diese Befehle sind mit Exbasic Level II möglich 
Konventionen: X,X1Y und so weiter bezeichnen allgemeine numerische Ausdrücke, an- 
sonsten werden Parameternamen klein geschrieben. »ad« steht für Adresse (0...65535), 
»iz« für Farbzahl (1...16). Runde Klammern müssen mit eingegeben werden, eckige und 
spitze Klammern werden nicht eingegeben. Parameterin eckigen Klammern müssen an- 
geführt werden, während Parameter in spitzen Klammern optionell sind. 


Hilfsfunktionen: 

FIND [string](,bereich) 

AUTO (zeilennr.)(schrittweite) 
DEL [bereich] 

RENUM (startnr.)(,schrittweite) 
TRACE/TRACE OFF 


MEROE (‚programmname) 
KEY 


KEY [nummer] [string] 
KEYON 


Kontrollstrukturen: 

IF. THEN...ELSE 

RESTORE [zeilennummer] 
ON X RESTORE [zeilennum- 
mernliste] 

DISPOSE 

DISPOSE CLR 

DISPOSE RETURN 


DISPOSE NEXT [variablenname] 


ON ERROR GOTO [zeilennum- 
mer] 


RESUME [zeilennummer] 
Ein-/Ausgabebefehle: 
INPUTLINE ("text”;) 
[stringvariable] 

INPUTFORM ("text”;)[stringvaria- 
ble] (‚maximallänge)/,fz) 


PRINT@ [position])’text” 

PRINT USING ["format”),[varliste] 
SPACE [spaltel,zeilel,spalte2, 
zeile2](‚code)/,fz) 


STRING$ (anzahl, string od. X) 
HARDCOPY 

Stringbefehle: 

INSTR (String ], string 2 
(position)) 

EVAL (string) 


EXEC (string) 


Zeilen, die den String enthalten, listen 
automatische Zeilennummernvorgabe 
Bereich löschen 

Zeilen umnummerieren 

aktuellen Befehl anzeigen 

nichtindizierte Variablen mit Wert anzeigen 
indizierte Variablen mit Wert anzeigen 
Umschalten in Klein/Großschrift 
Umschalten in Großschrift/Blockgrafik 
Speicherbelegung anzeigen 

obere Speichergrenze für Basic setzen 
beim Listen Blanks mit ausgeben 
Exbasic-Schlüsselwörter auflisten 
Standard-Basic-Schlüsselwörter auflisten 
Rückkehr ins Standard-Basic 

Exbasic Level Il reaktivieren 

weiteres Programm in bestehendes einkopieren 
F-Tastenbelegung anzeigen 
F-Tastenbelegung definieren 
Standardbelegung herstellen 


bedingte Verzweigung 
DATA-Zeilen-Zeiger auf angegebene Zeile setzen 


RESTORE mit berechneter Zeilennummer 
Manipulationen des Stack 

Abschluß aller Schleifen und Unterprogramme 
Abschluß einer offenen Unterprogrammebene oh- 
ne Rücksprung 

Abschluß der Schleife mit der angegebenen Lauf- 
variablen sowie aller Schleifen innerhalb dieser, 
aber kein Sprung aus der Schleife 


Fehlerausgang definieren 

Rückkehr nach Fehlerbehandlung zur Zeile, in der 
der Fehler aufgetreten ist 

Rückkehr nach Fehlerbehandlung zu der Zeile, die 
auf die Zeile folgt, in der der Fehler aufgetreten ist 
beliebiger Rücksprung nach Fehlerbehandlung 


Eingabe sämtlicher Zeichen 


Eingabe beliebiger Zeichen außer Cursorsteuer- 
zeichen in das Feld mit angegebener Länge 


Ausgabe an beliebiger Bildschirmposition 
formatiertes Drucken 


Die ersten 4 Parameter bestimmen den linken obe- 
ren bzw. den rechten unteren Eckpunkt eines 
Rechtecks, das mit dem durch seinen Bildschirm- 
code gegebenen Zeichen gefüllt wird. 
Vervielfachung des angegebenen Strings oder des 
durch den ASCII-Code X gegebenen Zeichens 
Ausgabe des Bildschirminhalts (nur Blockmodus) 


sucht string2 in stringl ab position und liefert, falls 
vorhanden, die Position von string2 in stringl, sonst 0 
Auswertung eines durch string dargestellten nu- 
merischen Ausdrucks 

Ausführung eines im string enthaltenen Basic- 
Befehls 











ae 


Grafik- und Farbbefehle: 
"CURSOR [fz] 

GROUND [£z] 

BORDER [£z] 

CORE [position,zeichencode,fz] 


Ausgabefarbe setzen 

Hintergrundfarbe setzen 

Rahmenfarbe setzen 

Durch Code bestimmtes Zeichen an Bildschirmpo- 


sition setzen 


CEEK [position,modus] 


modus = 


S: Bestimmung des Zeichencodes des 


Zeichens an gegebener Position 


modus = 
horizontalen Balken der Länge X plotten 
vertikalen Balken der Höhe X plotten 
Punkt setzen (Blockgrafik 80x50) 

Punkt löschen 

Test, ob Punkt gesetzt 


HPLOT X\,tz) 
VPLOT X\,fz) 

SET (spalte,zeile) 
RESET (spalte,zeile) 
POINT (spalte,zeile) 


Tonerzeugung: 
VOLUME X 

ÄADSR [stimme,kurven- 
form,a,d,s,r],(pulsweite) 
PLAY [stimme,tonhöhe] 


Numerische Funktionen: 
MAX (&1,22.....Xn) 
MIN (#1,X2....,Xn) 


C: Bestimmung des Farbcodes 


Lautstärke des SID setzen (0-15) 
Klangparameter setzen 


Ton anschlagen 
Maximum 


Minimum 
Nachkommastellen einer Dezimalzahl 


Rundung von X auf Y Nachkommastellen 

Test des ganzzahligen Teils von X auf ungerade 
Für X >=2 ganze Zufallszahlen zwischen 1 und X, 
sonst wie Standard-RND 

Umwandlung von X in Hexadezimalstring 


DEC (Hexadezimalstring) 


Verbindungen zur Maschinen- 
sprache: 
CALL (parameterliste) 


Umwandlung in Dezimalform 


Aufruf eines Maschinenprogramms mit Parametern 


über speziellen Einsprungvektor 


DEF CALL = [ad] 

DOKE [ad],X 

DEEK (ad) 

VARPTR (variablenname) 


Definition des CALL-Vektors 

Doppelbyte-POKE 

Doppelbyte-PEEK 

Anfangsadresse, ab der der zugehörige Variablen- 


wert im Speicher liegt 


Sonstige Befehle: 
SECX 

PAUSE X 

LOCK 


X Sekunden Verzögerung 
X/16 Sekunden Verzögerung 
Manuelle Umschaltung Schreibmaschinenmo- 


dus/Grafikmodus sperren 


LOCK OFF 
SWAP [varnamell],[varname2] 


LOCK aufheben 
Werte zweier Variablen vertauschen 





Auch wenn man keine EXBASIC-Level Il-Befehle in seine Programme einfügen will, also nur das 
Standard-Commodore-Basic benutzt, ist EXBASIC-Level Il eine sehr komfortable Editierhilfe 


SPACE mit Parameterangabe 

Im Gegensatz zu SPACE ohne Pa- 
rameter (siehe oben) kann man mit 
SPACE plus Parameterangabe sehr 
schnell | ganze  Rechteckbereiche 
mit einem Zeichen "beschreiben. 
Man kann damit zum Beispiel große 
farbige Rechtecke erzeugen oder 
Teilbereiche des Bildschirms ge- 
zielt löschen. 


Stringbefehle 

EVAL und EXEC erlauben es, 
Strings als numerische Ausdrücke 
beziehungsweise als Basic-Befehle 


aufzufassen. Damit ist es möglich, in 
ein laufendes Programm eine Funk- 
tion einzugeben, um zum Beispiel 
deren Nullstellen zu ermitteln, ohne 
das Programm abzubrechen. Denk- 
bar wäre auch die Simulation eines 
leistungsfähigen Taschenrechners. 


Grafik- und Farbbefehle 
Eswerdenleidernur die Möglich- 
keiten unterstützt, die sich aus den 
Grafikzeichen der Tastatur 'erge- 
ben. Dazu gehören Balken, deren 
Länge beziehungsweise Höhe sehr 
fein abgestuft werden kann, deren 


Breite aber immer acht Rasterpunk- 
te beträgt. Da diese Balkengrafik al- 
lerdings sehr schnell ist, Könnte man 
sie beispielsweise zur quasi-ana- 
logen Anzeige von Meßwerten in 
Realzeit benutzen. 


Weitere Befehle 

Die Befehle zur Tonerzeugung er- 
sparen eine lange Reihe von PEEKs 
und POKEs, auch muß man die 
Adressen der SID-Register nicht 
kennen. Man kommt jedoch nicht 
umhin, sich mit den Einzelheiten des 
Sound-Chips zu befassen. Eine Rei- 
he weiterer Befehle erleichtert das 
Zusammenspiel ' zwischen Basic- 
und Maschinenspracheprogram- 
men erheblich. Viele Programmier- 
aufgaben lassen sich nur in Maschi- 
nensprache vernünftig lösen. Diese 
Maschinensprache versieht man 
aber meistens mit Rahmenprogram- 
men in Basic, die dazu dienen, kom- 
fortabel mit dem Benutzer zu kom- 
munizieren (in Basic liegen komfor- 
table E/A-Routinen eben schon vor) 
und dazu, das Maschinenprogramm 
mit Parametern zu versorgen und es 
aufzurufen. 'Letzterem dienen die 
Befehle HEX$, DEC, CALL, DOKE, 
DEEK und VARPTR. Man halte sich 
vor Augen, daß zum Beispiel zur Än- 
SEK eines 16-Bit-Wertes der Be- 
ehl: 
DOKE ADX genügt, während man 
ın Standard-Basic die etwas um- 
ständliche Sequenz: 
POKE ADX-—256*INT(X/256) 
POKE AD+1,INT (X/256) 
benötigt. 


Zusammenfassende 
Beurteilung 


Wer die vollen Grafik- und Klang- 
möglichkeiten des C 64 (einschließ- 
lich Sprites) mit von Basic ausnutzen 
will, der sollte Simons Basic oder ei- 
ne andere spezielle graphische Be- 
fehlserweiterung wählen. Auch was 
strukturierte Programme  anbe- 
langt, fährt man mit Simons Basic 
besser. 

Wer allerdings Basic-Programme 
(unter anderen auch schon vorhan- 
dene) sehr komfortabel editieren 
und testen will, wer maskierte Ein- 
gabe und formatierte Ausgabe be- 
nötiat, für Business-Programms, für 
komfortable und schnelle Rahmen- 
programme zu Maschinensprache- 
programmen, für den ist Exbasic Le- 
vel II sicher das geeignetere Werk- 
zeug, 

(Thomas Krätzig) 
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G 64 


nen Computer als reines Hobby 

betrachtet, wird in der Regel 
nicht viel Geld für ausgefeilte Text- 
programme ausgeben wollen und 
sich oft genug auch seine eigene 
Textverarbeitung schreiben. An- 
ders sieht es zum Beispiel bei dem 
Geschäftsmann aus, der seine ge- 
samte Korrespondenz mit Compu- 
terhilfe abwickeln will. Dieser An- 
wender wird naturgemäß viel Wert 
auf»gehobene» Funktionen zur Text- 
verarbeitung legen und auch eher 


D er private Änwender, der sei- 


Die vorliegende Marktübersicht 
enthält — ohne einen Anspruch auf 
Vollständigkeit zu erheben — die 
gängigsten der fürden Commodore 
64 (zum Teil auch für den VC 20) an- 
gebotenen Textverarbeitungspro- 
gramme. Die Preise liegen dabei 
zwischen 28 und 898 Mark, eine 
Spanne, innerhalb der sowohl der 
reine Hobbyist wie auch der kom- 
merzielle Anwendereinfürihn geei- 
anetes Programm finden dürfte. Da- 
beimuß ganz deutlich daraufhinge- 
wiesen werden, daß nicht für jede 
AÄnwendungdasteuerste Programm 


Textverarbeitung 





tegrierte Adreßverwaltung wenig, 
wenn man gar keine Adressen ver- 
walten will. Man sollte sich wie im- 
mer beim Softwarekaufvorherüber- 
legen, was man nachher braucht. 


Was gibt es auf 
dem Markt? 


Diese Marktübersicht kann Ih- 
nen keine Beschreibungen der ein- 
zelnen Textprogramme liefern (wir 
müßten sonst ein ganzes Heft damit 
füllen), aber Sie erfahren hier, was 
Sie zu welchem Preis wo beziehen 





bereit sein, für wirklich gute Pro- auchunbedingt das beste seinmuß. können—und vorallem, wasfür Pro- 


gramme auch einiges an Geld zu 
zahlen. 


Zum Beispiel nützt einem die in ei- 
nem teuren Programm eventuell in- 


gramme überhaupt auf dem Markt 
sind. (ev) 
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re 64 eine Verarbeitung von Tex- 

ten durchzuführen, wird si- 
cherlich in jedem Besitzer einen 
Commodore 64 spätestens dann 
wach, wenner sein System um einen 
Drucker bereichert hat. 

Da die Textausgabe mittels PRINT- 
Anweisungen dabei schnell als zu 
umständlich angesehen wird, steht 
man bald vor der Entscheidung, ein 
fertiges Textverarbeitungspro- 
gramm zu kaufen. Der in der Reihe 
der »Golden Tools« Programme er- 
schienene SM-Text, verspricht diese 
Aufgabe in komfortabler Weise 
übernehmen zu können. 

Wer bereits beruflich oder wäh- 
rend seines Studiums mit einem 
Textverarbeitungssystem gearbei- 
tet hat, wird mehr verlangen, als al- 
lein die Fähigkeit, geschriebene 
Texte auf den Drucker zu übertra- 
gen: 

1. Der Text sollte möglichst so auf 
dem Bildschirm erscheinen, wie er 
später gedruckt wird. 

2. Das Einfügen, Verändern und For- 
matieren der Texte sollte unkompli- 
ziert und schnell sein. 

3. Das Speichern und Laden der 
Texte muß möglich sein. 

4. Die Fähigkeiten des angeschlos- 
senen Druckers sollen ganz ausge- 
nutzt werden. 

5. Die Steuerung der einzelnen 
Funktionen sollte einfach, logisch 
und übersichtlich sein. 

6. Letztlich sollte ein im deutschspra- 
chigen Raum verkauftes Produkt 
auch die deutschen Umlaute dar- 
stellen und zum Ausdruck bringen 
können. 

Einer Realisierung dieser Anfor- 
derungen stehen von der Hardware 
des Commodore 64 einige Proble- 
me entgegen. Der 64er hat keine 
deutsche DIN-Tastatur als Standard, 
seine Zeichendarstellung ist aufden 
amerikanischen ASCII-Satz abge- 
stimmt, und er kann nur 40 Zeichen 
pro Zeile darstellen. 

Dieses Handicap wurde beimSM- 
Text auf beeindruckende Weise 
überwunden. Nach dem Laden des 
Programms erscheint ein Menü, 
über das sich entweder die Stan- 
dard-Commodore- oder eine fast 
komplette deutsche DIN-Tastatur 


D er Wunsch, mit dem Commodo- 


auswählen läßt (Bild 1). Eine Anpas- 
sung an ASCII- oder Commodore- 
Drucker ist hier ebenfalls möglich. 
Jenachdem, welche der Funktionen 
angewählt wurde, speichert SM-Text 
die Tastatur/Drucker-Kombination 
auf der Systemdiskette ab. Dadurch 
wird erreicht, daß diese Einstellun- 
gen so lange automatisch mitgela- 
den werden, bis man eine andere 
Kombination wählt. 

Verläßt man dieses Menü durch 
Drücken der Tasten »T« und RE- 
TURN erscheint nachzirka einer Mi- 
nute das Arbeitsblatt-Hauptmenü 
(Bild 2). SM-Text ist aus über-und un- 
tergeordneten Menüs aufgebaut. 
Durch Drücken einer der Funktions- 
tasten, deren Bedeutung am unte- 
ren Bildschirmrand erklärt wird, 
kommt man in das jeweils unterge- 
ordnete Menü, durch Drücken der 
»t«-Taste (Men) kommt man in das je- 
weils übergeordnete Menü. 

Da die Erklärungen der Funk- 
tionstasten am unteren Biläschirm- 
rand relativ kurz gehalten werden 
mußten, besteht die Möglichkeit 
durch Drücken der CLR/HOME-Ta- 
ste genauere Erläuterungen ab- 
zurufen und mit »Space« wieder zu 
löschen. So wie die Funktionstasten 
haben auch viele Steuertasten eine 
neue Aufgabe zugedacht bekom- 
men. Die »Pfeil-nach-links-Taste« 
wird zum Worttabulator (ein Wort 
vor, beziehungsweise zurück) und 
die RUN/STOP-Taste zum Tabulator. 
Mit CTRL in Verbindung mit dem 
Worttabulator, den Cursorsteuerta- 
sten und der SHIFT-Taste, lassen 
sich Wörter und Zeilen vor bzw. 
nach dem Oursor löschen. 

Möchte man nun, ausgehend vom 
Hauptmenü, einen Text erstellen, so 
ist zuerst die fl-Taste (editieren) zu 
drücken. Der Cursor beginnt dann 
in der ersten Zeile auf einem Pfeil 
nach rechts zu blinken, die Anlei- 
tung sagt, daß man nun dem Text ei- 
nen Namen geben soll. Dabei ist zu 
beachten, daß man den Cursor um 
eine Stelle nach rechts versetzt, da- 
mit der Pfeil erhalten bleibt. Macht 
man dies nicht, so erhält man die 
Fehlermeldung "Textname nicht in 
Ordnung". Hat man dies beachtet, 
drückt man RETURN und kann be- 
ginnen seinen Text zu schreiben. 





die professionelle 


Da ich die deutsche Tastatur ge- 
wählt hatte, erwartete ich mit Span- 
nung die Darstellung der deutschen 
Umlaute: Und tatsächlich beim 
Drücken der <:>-Taste erscheint 
aufdem Bildschirm ein <ö>. Ermu- 
tigt von diesem Erfolg versuchte ich 
einmal, ohne auf die Tastatur zu 
schauen, alle mir von der Schreib- 
maschine her bekannten Zeichen zu 
erreichen. Das Resultat war erfreu- 
lich, alle Buchstaben waren da, wo 
sie auf einer deutschen Schreibma- 
schine auch sind. Wer also »blind« 
im Zehn-Finger-System schreiben 
möchte, und auf deutsche Umlaute 
nicht verzichten will, wird vom SM- 
Text freudig überrascht sein. 

Aber wie sieht es mit der Darstel- 
lung des Textes auf dem Bildschirm 
aus? Auch hier wurde eine elegante 
Lösung gefunden: Der Text bewegt 
sich beim Schreiben in Sprüngen je- 
weils in der 36., 51. und 66. Spalte ho- 
rizontal um einige Zeichen nach 
links. Die Sprünge wurden dabei 
aber so gewählt, daß ein Teil des 
eben geschriebenen Textes noch 
sichtbar bleibt, sodaß der Anschluß 
nicht verlorengeht. 
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Eine der wichtigsten Anwendungen für Computer ist die Textverarbeitung. 
Daß eine sinnvolle und komfortable Textverarbeitung nicht nur mit zigtausend 
Mark teuren Geräten möglich ist, versucht SM-Text 64 zu zeigen. 


Möchte manaber, daß der gesam- 
te Textaufdem Bildschirmlesbar ist, 
so kann man aus dem Editier-Modus 
über die f8-Taste die Zeilenbreite 


beliebig zwischen 0 und 120 Zei- 
chen pro Zeile einstellen. 


Auch das Verändern des ge- 
schriebenen Textes ist recht kom- 
fortabel gelöst: Zum einen bleiben 
die bekannten Cursorfunktionen 
ganz erhalten, zum anderen ist es 
weiterhin möglich, Texte zu über- 
schreiben oder Wörter und Sätze 
einzufügen. Nach Drücken der 
SHIFT- und INST-Taste wird der bis- 
her geschriebene Text automatisch 
solange nach unten verschoben, bis 
eine der Cursortasten gedrückt 
wird. 

Der nach dem Laden immer akti- 
vierte Automatikmodus (reservs A 
auf der obersten Zeile) sorgt beim 
Schreiben dafür, daß Wörter, die 
nicht mehr ganzin eine Zeile passen 
würden, automatisch mit in die 
:nächste Zeile übernommen wer- 
den. Man braucht also nur noch zu 
schreiben, ohne auf Worttrennun- 





Bild 1. Hier 
können die Parameter eingestellt werden 


gen beziehungsweise »Wagenrück- 
lauf« wie bei der Schreibmaschine 
achten zu müssen. Eine Umformatie- 
rung des Textes ist über die Funktio- 
nen f7 (justieren) nach dem Schrei- 
ben immer noch möglich. Hilfreich 
sind dabei die sogenannten Cursor- 
bewegungen (fl im Editiermodus). 
Sie ermöglichen es, seitenweise vor 
oder zurück zu springen oder den 
Cursor an das Textende bezie- 
hungsweise den Textanfang zu set- 
zen. 

Auch das Löschen und Einfügen 
von Zeilen oder das Transportieren 
und Kopieren von einzelnen Berei- 
chen (f5 im Editiermodus) ist leicht 
möglich. Wer dann noch Absätze ju- 
stieren oder Zeilen zentrieren 
möchte, wird von SM-Text nicht ent- 
täuscht. 

Eine weitere, sehr nützliche Funk- 
tion ist das sonst nur von speziellen 
Textverarbeitungscomputern her 
bekannte Suchen im Arbeitsspei- 
cher. Damit ist es möglich, nach be- 
stimmten Wörternim Textzusuchen 
und diese einmal oder immer durch 
ein anderes zu ersetzen. Besonders 
werden Verfasser von Rundschrei- 
ben diese Funktion zu schätzen wis- 
sen. Damit auch die für solche Rund- 
schreiben notwendigen Adressen 
nicht extra eingetippt werden müs- 
sen, besteht ferner eine Schnittstel- 
le zur SM-Adreva, einem anschlie- 
ßend erläuterten Ädressenverwal- 
tungsprogramm der gleichen Pro- 
gramm-Reihe. 

Damit beim Laden, Löschen oder 
Abspeichern keine ungewollten 
Datenverluste entstehen, sind zahl- 
reiche Sicherungen vorgesehen, 
zum Beispiel wird vor jedem Lö- 
schen des Arbeitsspeichers (f2 im 
Hauptmenü) gefragt, ob die Funk- 
tion auch wirklich ausgeführt wer- 
den soll. 

Besonders gefallen hat mir, daßin 
der Funktion Laden (f3 im Hauptme- 
nü) die Möglichkeit besteht, sich 
den Inhalt einer Diskette zeigen zu 
lassen und dann durch einfaches 
Drücken der bestimmten Nummer 
des Files dieses zu laden. Sollte der 
Arbeitsspeicher dabei nicht leer 
sein, wird dieser nicht überschrie- 
ben, sondern es wird eine Fehler- 
meldung angezeigt. 


Leider sind mir beim Arbeiten mit 
SM-Text auch einige nachteilige Ei- 
genschaften des Programms aufge- 
fallen. So wird beispielsweise bei 
längeren Texten (mehr als 100 Zei- 
len) die Verarbeitungsgeschwin- 
digkeitimmerlangsamer, bissie bei 
voller Ausnutzung des Arbeitsspei- 
chers fast zum Stillstand kommt. Es 
ist deshalb sinnvoll, immer nur eine 
Seite (66 Zeilen) zu schreiben, diese 
abzuspeichern, die Seitenzahl im 
Textnamen um eins zu erhöhen und 
die nächste Seite zu schreiben. 

Da sich die, sonst sinnvolle, Eigen- 
schaft des Programms, alle Texte so 
zu drucken wie sie auf dem Bild- 
schirm geschrieben wurden, bei 
mehrseitigen Texten leider negativ 
auswirkt, istesratsam, jede Seite mit 
Leerzeilen aufzufüllen, damit beim 
Drucken auf Endlospapier nicht auf 
die Abreißkante geschrieben wird. 
Epson-Besitzer können sich natür- 
lich auch hier mit einer Escape-Se- 
quenz behelfen. Macht man dies, so 
kann man die Funktion Drucken (f7 
im Hauptmenü) voll ausnutzen. Es 
wird einfach der Name des zu 
druckenden Textes in die oberste 
Zeile geschrieben und vom Haupt- 
menü aus die Taste f7 gedrückt. Der 
Text wird dann, direkt von der Dis- 
kette, Seite für Seite ausgedruckt. 

Sehr zu loben ist das deutschspra- 
chige Handbuch, das nur wenige 
Fragen offen läßt. Eine von diesen 
Fragen ist die Ansteuerung von an- 
deren Schriftarten und Textforma- 
tierungsfunktionen, wie sie bei- 
spielsweise von Epson-Druckern 
verarbeitet werden können. Dort 
wird lediglich angedeutet, daß man 
durch Schreiben des !-Zeichens mit 
den nachgestellten Steuerzeichen 
diese Funktionen erreichen könnte. 

Nach einigem Probieren ist es mir 
dennoch gelungen, alle Schriftarten 
der Epson-Drucker auf das Papier 
zu bringen. So wird beispielsweise 
durch ! ä die »Escape-Sequenz 
(CHRI(2D)« gesendet. Stellt man da- 
hinter ein großes M, ist man im 
Schönschreibmodus. Oder durch t 
ä-] wird der Unterstreichmodus ein- 
geschaltet, durch ! ä-0 wieder aus- 
geschaltet. Den Besitzern des 
1526-Druckers steht diese Funktion 
leider nicht zur Verfügung. Dafür 
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können sie durch Drücken der 
»Commodore«Taste zusammen mit 
einer Buchstabentaste den Gra- 
fik-Zeichensatz ausdrucken. 

Insgesamt stellt SM-Text ein wirk- 
lich interessantes Textverarbei- 
tungsprogramm dar, mit dem »fast« 
professionelles Arbeiten möglich 
ist. Da man die beschriebenen 
Nachteile durch einige kleine 
Tricks umgehen kann, ist ein kom- 
fortables Schreiben mit diesem Pro- 
gramm gewährleistet. Auch das 
Ausdrucken mehrerer Exemplare 
des gleichen Textes ist, obwohl da- 
für keine eigene Funktion vorhan- 
den ist, durch entsprechend häufi- 
ges (maximal lOmaliges) Drücken 
der f7-Taste, möglich. 

Bei SM-Text ist es möglich, eigene 
Sicherheitskopien anzufertigen, was 
einen von der Angst befreit, das 
noch zirka 2500 Mark teure Pro- 
gramm durch einen Irrtum zu verlie- 


ren. 

SM-Text-64 hebt sich von anderen 
Textverarbeitungsprogrammen vor 
allem dadurch ab, daß es für den 
Commodore 64 geschrieben wurde 
und dessen Nachteile auf sehr ele- 
gante Weise ausgleicht. Nach eini- 
ger Zeit vergißt man beim Arbeiten 
mit SM-Text, daß man nicht vor ei- 


nem Textverarbeitungscomputer 
sitzt und das ist, so glaube ich, die 
beste Reverenz. 

Die dazugehörige Adressenver- 
waltung, SM-Adreva, kann natürlich 
auch ohne SM-Text verwendet wer- 
den, gewinnt aber wesentlich an 
Einsatzmöglichkeiten, wenn sie im 
Verbund mit SM-Text, beispielswei- 
se zur Erstellung von Formbriefen, 
eingesetzt wird. 


SM-Adreva, die »goldene« 
Adressenverwaltung 


Die Produktgestaltung ist recht 
ansprechend: Die Systemdiskette, 
ein gut gegliedertes, deutschspra- 
chiges Handbuch, und, was keines- 
falls eine Selbstverständlichkeit ist, 
ein Service-Scheck, mit dem man 
gegen Einsendung von 20 Mark ei- 
ne zusätzliche Programmdiskette 
als Sicherheitskopie erhalten kann. 

Erfreulicherweise wurden bei 
SM-Adreva alle vom SM-Text her be- 
kannten Vorteile, wie die deutsche 
DIN-Tastatur, die Farbwahlmöglich- 
keit und die Anpassung der 
Druckerparameter (zum Beispiel an 
Epson-Drucker) mit übernommen. 

Hat man nach dem Starten des 
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Programms die Einstellung der 
Drucker- und Tastaturparameter 
vorgenommen, so werden diese ab- 
gespeichert und sind fortan sofort 
nach dem Programmstart wieder 
eingestellt. Verläßt man dieses Me- 
nü mittels der Taste >A<, fordert 
das Programm den Benutzer auf, ei- 
ne Datendiskette einzulegen. Da 
diese beim ersten Start natürlich 
nicht vorhanden ist, tut es zunächst 
auch eine leere, formatierte oder 
unformatierte Diskette. Die Forma- 
tierung wird dann vom Programm 
selbständig ausgeführt. 

Nach der Formatierung der Dis- 
kette kann man sich ruhig erst mal 
eine Tasse Kaffee gönnen, dennnun 
beginnt das Programm auf der Dis- 
kette eine REL-Datei anzulegen, was 
alles in allem fünf Minuten dauert. 
Dieser Vorgang ist beendet, wenn 
die Bildschirmmaske erscheint. Auf 
dieser Datendiskette kann man nun 
bis zu 622 Datensätze (beziehungs- 
weise Adressen) abspeichern. Sind 
mehr Datensätze zu verarbeiten, 
kann jederzeit eine weitere Daten- 
diskette angelegt werden. 

Die Bildschirmmaske des SM- 
Adreva ist vorgegeben und kann 
nicht mehr verändert werden, sie ist 
aber so angelegt, daß sie fast allen 
Ansprüchen gerecht werden kann 
(Bild 3). In der ersten Zeile befinden 
sich Kundennummer und Suchbe- 
griff, in den darauffolgenden Zeilen 
Anrede, Namel, Name2, Zusatz, 
Straße, Ort und Briefanrede. Ferner 
besteht die Möglichkeit, Telefon- 
nummer, Telexnummer und fünf Zei- 
len Text einzugeben (Bild 3). 

Ganzam unteren Rand sind, wiein 
dieser Reihe üblich, wieder die Be- 
legungen der Funktionstasten ange- 
zeigt. Mit Taste fl werden Adressen 
gespeichert, mit f2 gelöscht, mit f3 
gedruckt und mit f4 wird das Pro- 
gramm beendet. Die letzte Funktion 
ist nach Beendigung der Datenein- 

gabe immer zu benutzen, da sonst 
die Dateien auf der Diskette nicht 
abgeschlossen werden und für im- 
mer verlorengehen können. 

Grundsätzlich sind die Adressen 
über zwei Kriterien später wieder- 
zufinden: Entweder nach »Kunden- 
nummer« oder nach »Suchbegriff«, 
wobei die Kundennummer nur Zah- 
len zwischen 1 und 622 annehmen 
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darf, der »Suchbegriff« dagegen 
Kleinbuchstaben und Ziffern mit bis 
zu zehn Zeichen. 

Bei der Eingabe der Adressen ist 
es sinnvoll keine eigenen Kunden- 
nummern zu vergeben, sondern 
dieses dem Programm zu überlas- 
sen. Erst beim Suchbegriff kann 
man dann entweder einen Namen, 
eine Postleitzahl oder ähnliches ein- 
geben. Hat man dies getan, so fragt 
das Programm: »Vor/Zurück/An- 
dern/Neueintrag% Bei der ersten 
Eingabe ist natürlich immer <N> 
zu drücken. Jetzt ist es möglich, die 
Bildschirmmaske mit den ge- 
wünschten Daten auszufüllen. Die 
Cursorfunktionen bleiben dabei in 
vertikaler Richtung erhalten, hori- 
zontal (für Korrekturen) ist die 
DELETE-Taste zu verwenden. Sind 
alle Daten eingegeben, so kann der 
Datensatz durch Drücken der 
fl-Taste abgespeichert werden. 

Möchte man aber einen bestehen- 
den Datensatz verändern, so ist 
wahlweise der Suchbegriff oder die 
Kundennummer einzugeben und 
durch RETURN abzuschließen. 
Drückt man dann die Taste <Ä>, 
können die gewünschten Änderun- 
gen vorgenommen und abgespei- 
chert werden (fl). Wenn aber der 
Suchbegriff oder die Kundennum- 
mer nicht richtig waren, so besteht 
die Möglichkeit, durch Drücken von 
<V> vorwärts und von <Z> zu- 
rückzublättern. 

Besonders wichtig ist die Funktion 
des Druckens von Adressen. Dazu 
ist die betreffende Adresse zu- 
nächst zu suchen (wie bei Adresse 
ändern). Erscheint die gewünschte 
Adresse auf dem Bildschirm, kann 
sie durch f5 ausgedruckt werden. 
Oft ist es aber auch nötig, eine 
Adreßliste auszudrucken, dazu 
wird, ausgehend von einer leeren 
Bildschirmmaske, wieder die Taste 
f5 gedrückt. Nun besteht die Aus- 
wahl zwischen einer Liste und Auf- 
klebern, bei einer Liste werden alle 
Daten der Datensätze ausgedruckt, 
bei ÄAufklebern nur Name und An- 
schrift. 

Der Ausdruck erfolgt immer al- 
phabetisch, wenn nach einem Such- 
begriff geordnet gedruckt werden 
soll. Bei der Kundennummer be- 
ginnt der Ausdruck mit der ersten 


Nummer und endet mit der letzten 
gespeicherten Kundennummer. 

Die Erstellung von Formbriefen ist 
wohl eine der interessantesten Mög- 
lichkeiten der Adreßverwaltung. 
Hierzu ist aber, wie bereits gesagt, 
das Programm SM-Text notwendig. 
Ist dieses ebenfalls vorhanden, so 
kann nicht nur die Adresse in einen 
geschriebenen Text, sondern auch 
Daten, wie beispielsweise der Na- 
me, an beliebiger Stelle im Text ein- 
gefügt werden. Dazu muß beim 
Schreiben des Textes immer dann, 
wenn ein Name eingefügt werden 
soll, die Commodore-Taste und ein 
<Ä> geschrieben werden. Auf 
dem Bildschirm erscheint dann fol- 
gendes Zeichen: A, nun muß nur 
noch das betreffende Kürzel (zum 
Beispiel N] für Vornamen) dahinter- 
gesetzt werden. 

Zum Ausdruck ist das ganze dann 
dadurch zu bringen, daß durch 
Drücken der f4Taste noch die 
Adressen hinzugeladen werden 
und, wenn die richtige Adresse vor- 
liegt, durch anschließendes Drük- 
ken der <D>-Taste ausgedruckt 
wird. 

Der größte Nachteil dieses sonst 
sehr ansprechenden Programms ist 
darinzusehen, daß esnicht möglich 
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ist, sich beispielsweise alle Perso- 
nen die, in einer Ortschaft leben 
oder deren Name mit A anfängt, 
ausgeben zu lassen, es sei denn, 
man hätte bei der Eingabe als Such- 
begriff den Namen oder die Ort- 
schaft gewählt. Da man damit aber 
ein für alle Mal festgelect ist, bleibt 
oft nichts anderesübrig, als sich vie- 
le Adressen anzusehen, um die ge- 
wünschten Personen zu finden. Bei 
einer möglichen Datensatzmenge 
von 622 Einträgen sicherlich eine 
Menge Arbeit. 

Dennoch stellt SM-Adreva (Preis: 
175 Mark) ein insgesamt attraktives 
Adressenverwaltungsprogramm 
dar, daeine echte deutsche Tastatur 
und Druckersteuerung verwirklicht 
wurde und nicht zuletzt auch des- 
halb, weil die Möglichkeit zur Erstel- 
lung von Formbriefen besteht. Da 
diese Funktionen aber leider nur zu- 
sammenmitdemzirka 250 Markteu- 
ren SM-Text möglich ist, erreichen 
diese beiden Programme zusam- 
men eine Preiskategorie, in die sich 
möglicherweise nicht mehr jeder 
Hobbyanwender vorwagt. Für eine 
wirkliche professionelle Adressen- 
verwaltung reichen die beschriebe- 
nen Funktionen aber wahrschein- 
lich nicht aus. (Arnd Wängler) 
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Bild 3. Viele Eingabemöglichkeiten sind bei Adreva in der Bildschirmmaske möglich 
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Programms meldet sich der 
Computer mit: 
*** Word Processor Three Plus *** 
A Product of Professional Software, 
Inc. by Steve Punter 
Printer: Springwriter, Diablo, Qume, 
TEC, 8027, or Other? 


Druckerwahl 


Wordpro 3 Plus ist mit den hier 
aufgeführten Druckern (und einigen 
anderen) kompatibel. Sie können 
nun Ihren jeweiligen Druckertyp 
wählen, indem Sie den entspre- 
chenden Anfangsbuchstaben ein- 
geben. 

Anschließend erscheint eine an- 
dere Frage auf dem Bildschirm: 
Lines Available: 352 
How many for main text? 

(Min=176, Max=329) 

Dadurch erfahren Sie, daß im Ar- 
beitsspeicher 352 Zeilen (je 40 Zei- 
chen) für die Textaufnahme zur Ver- 
fügung stehen. 

Mit der Frage »How many for main 
text%« begegnet man einer wichti- 
gen Besonderheit von Wordpro 3 
Plus. Der Arbeitsspeicher ist näm- 
lich in zwei Bereiche aufgeteilt, ei- 
nen für den Haupttext (main text) 
und einen für den Zusatztext (switch 
text). Im Hauptspeicher befindet 
sich der Text, den man gerade bear- 
beitet. Der Zusatzspeicher eignet 
sich für Notizen, öfter benötigte Text- 
bausteine und vor allem für Adres- 
sen, die man im Serienbrief verwen- 
denkann. Auch das Inhaltsverzeich- 
nis der Diskette läßt sich hier unter- 
bringen. 

Das Programm verlangt also zwi- 
schen 176 und 329 Zeilen für den 
Hauptspeicher. Sollte man sich nicht 
für die maximale Angabe entschei- 
den, werden die restlichen Zeilen 
Se Zusatzspeicher zugeschrie- 

en. 

Dann erkundigt sich das Pro- 
gramm nach der Gerätenummer 
des Druckers und gibt weiter drei 
Druckertypen zur Auswahl. Auch 
nach der Gerätenummer der Flop- 
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Menü: Eingabe der Gerätenummer von Floppy und 
Drucker sowie Druckerauswahl 


py wird gefragt: Disk Drive Device 
#? 


Achtung: Wordpro 3 Plus arbeitet 
nur korrekt, wenn ein serieller 
Drucker beziehungsweise Floppy 
angeschlossen ist. Wollen sie über 
einen IEEE-488-Bus eine Floppy 
oder einen Drucker betreiben, 
dann meldet sich das Programm 
lautlos ab! 


Statuszeile 


Haben Sie alle Eingaben korrekt 
erledigt, dann erscheint ein leerer 
Bildschirm mit Statuszeile und ei- 
nem Cursor: 

Wordpro 3 Plus :X:I:S:C:NC=1 L=1 

Diese Statuszeile bleibt immer auf 
dem Bildschirm, auch wenn.der Text 
nach oben beziehungsweise unten 
scrollt. Die Buchstaben X:I:S:C:N ge- 
ben durch Aufleuchten an, in wel- 
cher der fünf Hauptbetriebsarten 
man sich befindet. 


= Man befindet sich im Nebenspeicher 

= Einfügen. Diese Betriebsart ermöglicht 

es Ihnen, Wörter, Zeilen und ganze 

Absätze in einen vorhandenen Text 

einzufügen 

Umschalten auf Großschreibung 

= Control-Modus. Wird durch Drücken 
der CTRL-Taste ein- und ausgeschaltet. 
In dieser Betriebsart verwandeln sich 
die meisten Tasten in Befehlstasten 

N = Zahleneingabe — In diesem Modus 

sorgt Wordpro 3 Plus automatisch da- 

für, daß Zahlenkolonnen dezimalge- 

recht untereinander geschrieben wer- 

den 


X 
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C= 1:L= 1. Diese Zähler zeigen an, 
in welcher Position sich der Cursor 
gerade befindet: 
C = Angabe der Spalte 
L = Angabe der Zeile 

Bei Wordpro 3 Plus braucht man 
sich bei der Eingabe des Textes 
über dessen endgültige Gestalt 
noch keine Gedanken zu machen. 
Man hat vielmehr noch die Möglich- 
keit, nachträgliche Änderungen im 
Text vorzunehmen. Es können Buch- 
staben, Wörter, Sätze oder sogar 
ganze Absätze gelöscht, eingescho- 
ben oder verschoben werden. Das 


Bearbeiten eines Textes ist sehr ein- 
fach, da die Cursorsteuertasten wie 
vom Basic her gewohnt funktionie- 
ren. Die Retum-Taste ist lediglich 
nach Absätzen oder Überschriften 
zur Textformatierung zu drücken. 


Textformatierung 


Durch Formatierungsbefehle gibt 
man anschließend dem Text seine 
äußerliche Gestalt. Die Formatie- 
rungsbefehle bestehen aus drei Zei- 
chen und einer Zahl als Parameter. 
Daserste Zeichen CTRLund '/" gibt 
an,daßessich hierum einen Forma- 
tierungsbefehl handelt, und daß der 
Rest dieser Zeile nicht gedruckt 
werden darf. Die folgenden zwei 
Zeichen stellen den Befehl dar. 

Wordpro 3 Plus kennt insgesamt 
23 Formatierungsbefehle: Hinter 
dem cm-Befehl kann ein Kommentar 
stehen; ähnlich dem Basic-Befehl 
»REM«. Folgende vier Befehle wer- 
den jeweils durch den nachfolgen- 
den Parameter ein-(= ))beziehungs- 
weise ausgeschaltet (= 0). Der cn- 
Befehl zentriert alle Textzeilen zwi- 
schen dem linken und rechten 
Rand. Normalerweise ist der rechte 
Rand eines Textes »ausgefranst«. 

Der Blocksatzbefehl ju ordnet den 
Text an beiden Rändern. Der ra-Be- 
fehl bewirkt nun, daß der rechte 
Rand bündig ausgedruckt wird und 
links ein »Flatterrand« entsteht. 
Durch den Ilf-Befehl können Sie ei- 
nen zusätzlichen Zeilenvorschub be- 
wirken. Den rechten und linken 
Rand Ihres Textes können Sie mit 
den beiden Befehlen rm und Im est- 
legen. Hier sind die Parameter 
(2-163) erlaubt. Geben Sie diese Be- 
fehle nicht ein, so setzt Wordpro 3 
Plus den linken Rand auf Spalte 5 
und den rechten Rand auf Spalte 75 
(entspricht DIN-A4-Format). Der pp- 
Befehl meldet dem Drucker das Pa- 
pierformat, das heißt wieviel Zeilen 
maximal zur Verfügung stehen. Der 
pg-Befehl hingegen gibt an, wieviel 
Zeilen auf einer Seite stehen sollen. 
Ähnlich wie bei der Schreibmaschi- 
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Wordpro 3 Plus im Eingabemodus 


ne kann mit dem sp-Befehl der Zei- 
lenabstand eingegeben und mit 
dem ma-Befehl der Rand gelöscht 
werden. Mit fp wird ein Seitenum- 
bruch erzwungen. 


Wollen Sie im Text eine entspre- 
chende Anzahl Leerzeilen haben, 
so können Sie dies durch den In- 
Befehl und der Angabe der Anzahl 
der Leerzeilen erreichen. Der vp- 
Befehl erzeugt automatisch den in 
der nachfolgenden Zahl festgeleg- 
ten Zeilenvorschub vom Beginn je- 
der neuen Seite an. Für Schön- 
schreibdrucker kann man die 
Schreibdichte pt und Zeilendichte fa 
jeweils in Zoll wählen. Müssen Sie 
während des Druckens zum Bei- 
spieldas Typenrad wechseln, so ge- 
ben Sie den ps-Befehl und den ent- 
sprechenden Kommentar ein. Wenn 
der Computer auf dieses Zeichen 
stößt, hälteran, gibtden Kommentar 
in der Statuszeile aus und wartet auf 
das Drücken der »C«Taste um fort- 
zufahren. 


Sie haben die Möglichkeit, bei 
längeren Dokumenten jeweils am 
Anfang einer jeden Seite eine Kopf- 
zeile und am Ende eine Fußzeile zu 
drucken. Die Kopfzeile steht hinter 
dem Formatierungsbefehl hd und 
die Fußzeile hinter dem ft-Befehl. 
Der linke und rechte Rand der Kopf- 
zeile kann separat mit hl bezie- 
hungsweise hr programmiert wer- 
den. Die Kopifzeile kann auch eine 
»mnitzählende« Seitennummer ent- 
halten. Wollen Sie allerdings, daß 
mit dem Zählen nicht bei 1 begon- 
nen wird, sondern zum Beispiel bei 
25, dann geben Sie einfach den Be- 
fehl p#25 ein. 

Außer den Formatierungsbefeh- 
len gibt esnoch die Control-Befehle. 
Wurde die CTRL-Taste gedrückt, so 
befindet man sich im Controlmodus 
(© in der Statuszeile leuchtet auf), 
und die meisten Tasten werden zu 
Befehlstasten. Die >-Taste schaltet 
den »Disk-Command« ein; das heißt 
man kann Disketten formatieren, 
Programme löschen oder umbe- 
nennen und so weiter. 
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Die >-Taste fragt den Disk-Status 
ab. Durch »CTRL«-A können Sie häu- 
fig benötigte Textbausteine aus dem 
Nebenspeicher abrufen. Das O 
steht für Output und schaltet den 
Drucker ein. Mit»CTRL«-G kann der 
Cursor auf eine bestimmte Zeile ge- 
setzt werden. Wenn Sie beider Text- 
eingabe »CTRL«-B drücken, so er- 
scheintaufdemSchirmzunächstnur 
ein Grafikzeichen. Beim Ausdruck 
allerdings holt sich das Programm 
bei jedem B eine Textvariable aus 
dem Nebenspeicher. Dies eignet 
sich vor allem für Serienbriefe. So 
können zum Beispiel die Adressen 
mehrerer Personen im Nebenspei- 
cher untergebracht werden. Das 
Programm holt sich dann bei jedem 
Ausdruck eine neue Adresse aus 
dem Nebenspeicher. 


Controlmodus 


Das Inhaltsverzeichnis der Disket- 
te wird mit» CTRL«-0 inden Speicher 
gelesen. Die ETaste schaltet auf 
Löschbetrieb. Beinachfolgendem A 
wird alles gelöscht. Es gibt jedoch 
auch die Möglichkeit, selektiv nur 
bestimmte Worte, Sätze, Äbsätze 
oder Bildschirmzeilen zu löschen 
oder einfach alle Zeichen ab der 
Cursor-Position. 

Wollen Sie einen bestimmten Äb- 
satz im Text verschieben, so können 
Sie ihn zuerst mit »CTRL«T auf eine 
andere Stelle übertragen. 

Sehr nützlich ist auch die »FIND- 
Funktion«, mitdermanlokal(im Text) 
oder global (auf Diskette) bestimmte 
Zeichenketten suchen kann. Mit ei- 
ner ähnlichen Funktion kann eben- 
falls eine Zeichenkette gesucht und 
automatisch gegen eine andere er- 
setzt werden. Wurde bei der »FIND- 
Funktion« die gewünschte Zeichen- 
kette gefunden, so bleibt der Cursor 
unmittelbar dahinter stehen. Mit 
»CTRL«-H setzt das Programm die 
Suche nach einem weiteren Auftre- 
ten der Zeichenkette fort. In jeder 
beliebigen Spalte des Bildschirms 
kann ein Tabulator gesetzt oder ge- 
löscht werden. 


Wordpro 3 Plus ist kein absolut neues 
Programm, denn für die »großen« 
Commodore-Computer CBM 3032, 4032 
und 8032 ist es seit langem bekannt. 
Wer einmal damit Briefe und dergleichen 
geschrieben hat, wird sich nur sehr schwer 
von diesem komfortablen Programm 
trennen können. Es ist seit einiger Zeit 
auch für den Commodore 64 verfügbar. 


Wordpro 3 Plus kann Zahlenkolon- 
nen addieren und subtrahieren. Für 
diesen Zweck schaltet man mit 
»CTRL«-N auf Zahleneingabe um. 
Das N in der Statuszeile leuchtet auf. 
In dieser Betriebsart können nun 
Rechenoperationen durchgeführt 
werden. 

Eine Diskette kann mit »CTRL« 
RUN/STOP initialisiert werden. Um 
Text zuladen oder zu speichern, hat 
man »SHIFT«-CLR/HOME zu 
drücken. In der Statuszeile erschei- 
nen dann folgende Befehle: »Recall, 
Memorize, or Insert«. Der Recall- 
Befehl lädt ein Textfile von der Dis- 
kette; der Memorize-Befehl spei- 
chert ein Textfile auf Diskette. Mit In- 
sertschließlich kann ein Textfile von 
der Diskette in den Text eingefügt 
werden. 

Viele dieser Control-Befehle sind 
noch weiter in Unterfunktionen auf- 
gegliedert. Eserscheint hier jedoch 
nicht sinnvoll, alle diese Unterfunk- 
tionen aufzuführen. 

Eine Änderung.der Bildschirmfar- 
ben ist von Wordpro 3 Plus ebenfalls 
vorgesehen. Hierzu dienen die 
Funktionstasten: 

F7 + F5 ändert die Rahmenfarbe 
F7 + F3 ändert die Bildschirmfarbe 
F7 + Fl ändert die Zeichenfarbe 

Wordpro 3 Plus ist für 285 Mark er- 
hältlich. Leider ist das Handbuch 
nicht im Preis inbegriffen. Für die- 
ses sind noch extra 22 Mark zu be- 
zahlen. 


Fazit 


Ich finde, daß man mit diesem Pro- 
gramm in kürzester Zeit optisch her- 
vorragende Texte erstellen kann. Ei- 
ne Vielzahl von Funktionen ermög- 
licht nach einer gewissen Eingewöh- 
nungszeit eine sehr schnelle Text- 
eingabe, auch in Verbindung mit 
speziellen Strukturen wie Tabellen 
oder ähnlichem. Die komfortablen 
Editiermöglichkeiten tragen einiges 
zur sehr guten Benutzerfreundlich- 
keit bei. Insgesamt also wirklich ein 
Textprogramm, dessen Anschaf- 
fung sich lohnt. 

(Christian Quirin Spitzner) 
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Blitztext möchte ein einfaches aber wirkungsvolles 
Werkzeug für die Erledigung der persönlichen Schreib- 
arbeiten sein. Kann es diese Anforderung erfüllen? 


dem Commodore 64 zusammen 

mit einem Textverarbeitungs- 
‚programm gelingt, die gute alte 
Schreibmaschine in die Ecke zu ver- 
bannen, ist klar: Ein solches System 
muß mindestens die gleiche, mög- 
lichstnoch einehöhereleistungund 
besseren Bedienungskomfort bie- 
ten. 

Bliztext verspricht dabei, dem Be- 
diener in allen Situationen hilfreich 
zur Seite zu stehen, wenn er erst ein- 
mal mit der Bedienung dieses Wort- 
prozessors vertraut ist. Daß dieser 
Vorgang des Kennenlernens eine 
umfangreiche Angelegenheit ist, 
merkt der interessierte Benutzer 
spätestens dann, wenn er dasHand- 
buch zum ersten Mal durchblättert. 
Dort findet er auf fast jeder Seite ei- 
ne Fülle von Steuerzeichen, dieeszu 
beherrschenheißt. Von dieser Infor- 
mationsfülle sollte man sich aber 
nicht verwirren lassen, denn im täg- 
lichen Gebrauch werden selten alle 
Befehle benötigt. Außerdemkönnen 
noch einige Tricks die Arbeit er- 
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leichtem. Es ist deshalb zunächst 
sinnvoll, dem, glücklicherweise stu- 
fenweise aufbauenden Handbuch 
schrittweise zu folgen. 

Erhältlich ist Bliztext sowohl als 
Disketten- als auch als Kassettenver- 
sion, wobeimanbeiderletzterenna- 
türlich die Funktionen des Koman- 
dokanals # 15 der Diskettenstation 
nicht nutzen kann; ganz abgesehen 
von der geringen Ärbeitsgeschwin- 
digkeit der Datasette. Aber auch die 
Besonderheiten der Diskettensta- 
tion, wie beispielsweise das Einle- 
sen von Files während der Textfor- 
matierung, drängen zur Verwen- 
dung des VC 1541-Laufwerkes. 

Das erste Bild, mit dem sich Bliz- 
textnach dem Laden beim Benutzer 
meldet, ist die Texteingabemaske. 
Sie besteht am oberen Rand aus ei- 
ner sogenannten Statuszeile, die 
Auskunft gibt über die Anzahl der 
geschriebenen Zeichen pro Zeile, 
den Gesamttext, den verbleiben- 
den Speicherplatz und über den Zu- 
stand des Kopierregisters, dessen 
Funktion später noch erläutert wer- 
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schwell 


den soll. Eigentlich ist der Wortpro- 
zessor nun bereit, einen Text aufzu- 
nehmen und eskann auch schon ge- 
schrieben werden. Dafür bietet der 
Speicher Platz für 27000 Zeichen, 
das entspricht etwa 7 bis 8 Schreib- 
maschinenseiten. 


Das Schreiben 


Die Eingabe von Texten gestaltet 
sich einfach, denn man braucht nur 
darauf los zu schreiben. Der Text 
schiebt sich dabei langsam in hori- 
zontaler Richtung von rechts nach 
links weiter, bis, ab der 75. Spalte, 
ein Warnton dazu auffordert, mittels 
Return in eine neue Zeile zu sprin- 
gen. So fährt man fort, bis der ge- 
samte Text eingegeben ist. Hätten 
wirnunnochunserealteSchreibma- 
schine, wäre der Text unveränder- 
lich fertig und selbst das Einfügen 
eines einzelnen Wortes sehr schwie- 
rig. Nicht so bei Bliztext; es bietet 
noch einige Möglichkeiten, mit den 
eingegebenen Buchstaben umzu- 
gehen. Natürlich ist es machbar, 
den Text jetzt schon auszudrucken. 
Damit beraubt man sich aber der 
Besonderheiten, die einen Text erst 
ansehnlich und richtig machen. 
Haben sie sich verschrieben? Kei- 
ne Ängst, durch Verwendung der 
Cursortasten auf die falsche Stelle 
fahren und verbessern. Auch wenn 
die Korrektur mehr Platz in Än- 
spruch nimmt als der ursprüngliche 
Text, das Einfügen der zusätzlichen 
Zeichen ist kein Problem, denn der 
Text verschiebt sich automatisch 





- nach rechts beziehungsweise nach 


unten. Auch ist esmöglich, den gan- 
zen Text nach einzelnen Worten zu 
durchsuchen und diese, falls ge- 
wünscht, durch andere zu ersetzen. 
Das Erstellen von Serienbriefen 
wird somit wesentlich erleichtert. 
Natürlich kann man auch ganze 
TextbDlöcke markieren, löschen 
oder verschieben. Dies geschieht 
mit Hilfe des oben genannten Ko- 
pierregisters, in das bis zu 4000 Zei- 
chen eingespeichert und bei Be- 
darf, an jeder Stelle des Textes wie- 
der aufgerufen werden können. 
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Eine Besonderheit des Bliztext 
Wortprozessors ist der sogenannte 
»Formatten. Es handelt sich dabei 
um eine Funktion, mit der dem Text 
die Form gegeben werden kann, in 
der er später auf dem Drucker er- 
scheinen soll. In diesem Formatier- 
modus ist es möglich, Texte zu zen- 
trieren, Zeilen- und Seitenlängen zu 
definieren, einen rechten Randaus- 
gleich (Blocksatz) durchzuführen 
und Absätze hervorzuheben. Ferner 


Umfangreiche 
Formatierungsbefehle 


kann eine Seitennumerierung ein- 
gestellt werden und Steuerkomman- 
dos an den Drucker und die Floppy 
übermittelt werden. Somit ist es 
möglich, die vorhandenen Funktio- 
nen des jeweiligen Druckers anzu- 
steuern, wie beispielsweise Fett- 
erstreichen und Groß- 


keit, durch 
legen, daßFiles, die 
ziehungsweise Kassette 
chert sind, in bestehende 
gefügt werden. 

Damit sind die Sonderfunktionen 
des Bliztext aber bei weitem noch 
nicht erschöpft. Ein sicherlich nicht 
unwichtiges Unterprogramm ist die 
Verwendung der Kommandozeile, 
die sich am unteren Bildschirmrand 
befindet. Eine Abbildung der ver- 
fügbaren Befehle ist in Bild 1 darge- 
stellt. Diese reichen vom Setzen der 
TEUEDDST bis zum Terminal- 
mode. 


Der Terminalmode 


Wer sich unter diesem Begriff au- 
genblicklich noch nichts vorstellen 
kann, wird beim Studium des Hand- 
buches über diese Funktion über- 
rascht sein. Im Terminalmode ist es 
dem C 64 möglich, mit der Außen- 
welt in Verbindung zu treten. Sei es 
mit anderen Computern direkt, 
oder via Modem und Telefon mit 
weiter entfernten Computern. Das 
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Übermitteln und Empfangen von 
Texten und Daten von einem Ort 
zum anderen wird dadurch unter- 
stützt. Damit beider Herstellung der 
Verbindung kein unliebsamer Da- 
tenverlust entsteht, ist die notwendi- 
ge Hardware und deren genauer 
Anschluß glücklicherweise im 
Handbuch beschrieben. Etwas 
handwerkliches Geschick und tech- 
nisches Verständnis muß aber den- 
noch vorausgesetzt werden. 

Die zum Test vorliegende Version 
des Bliztextes war zusätzlich zu den 
oben genannten Funktionen um 
zwei weitere Unterprogramme ge- 
genüber der früheren Version er- 

- orden. Diese sind zum ei- 


werden kön- 


viel Licht auch im- 
mer etwas Schatten. Dieser wird ins- 
besondere dadurch deutlich, daß 
sich die Programmierungdervielen 
Sonderfunktionen mitunter relativ 
umständlich gestaltet. Da große Tei- 
le des Programmes durch CTRL- 
Sequenzen (Bild 2) gesteuert wer- 
den und oft die Eingabe mehrerer 
dieser Sequenzen notwendig sind, 
kommt man gelegentlich um ein 
wahres Tastaturstakkato nicht her- 
um. Umgehbar ist dieser Ärbeits- 
aufwand, zumindest teilweise, in- 
dem Files mit den bevorzugten For- 
matierungsbefehlen angelegt wer- 
den. Ferner ist es empfehlenswert, 
sich eine eigene Referenzliste aller 
Befehle anzufertigen, da diese im 
Handbuch leider nicht abgedruckt 
ist. Nicht zuletzt wegen der vielen 
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Auswahlmöglichkeiten, die Bliztext 
bietet, ist eine sichere Bedienung 
des Programms wahrscheinlich erst 
nach einiger Übung zu erreichen, 
dann aber stehen einem Möglich- 
keiten zur Verfügung, mitderdiean- 
fangs erwähnte Schreibmaschine si- 
cherlich nicht aufwarten kann. Letzt- 
lich bleibt nur zu wünschen, daß 
auch bei diesem Programm der 
deutsche Zeichensatz auf dem Bild- 
schirm noch realisiert wird, aufdem 
Drucker können diese Zeichen 
durch Eingeben der entsprechen- 
den Zeichen (zum Beispiel eckige 
Klammer links für das ö) umgangen 


werden. 
Fazit 


Bliztext ist ein leistungsfähiges 
Textverarbeitungsprogramm, des- 
sen Bedienung zwar etwas umständ- 
lich und gewöhnungsbedürftig ist, 
dessen Leistungskriterien diesen 
Nachteil aber sicher ausgleichen. 
Besonders hervorzuheben ist die 
Möglichkeit der Datenübertragung 
zu anderen Computern. Diese er- 
möglicht zum Beispiel eine »orts- 
unabhängige Texteingabe« in der 
Bahn oder im Flugzeug auf soge- 
nannten Handheld Computern wie 
dem TANDY-Modell 100 und der 
späteren Übertragung des Textes 
auf den C 64. Gemessen am Preis 
von 199 Mark kann dem Bliztext ein 
sehr gutes Preis-Leistungverhältnis 
bestätigt werden, das sich dadurch 
noch verbessern läßt, daß man sei- 
ne alte Schreibmaschine verkauft. 

(Arnd Wängler) 
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sprünglich ins Universum ge- 
schickt, um in einer multinatio- 
nalen Aktion die Welt zu retten. Die 
AEs sind jedoch außer Kontrolle ge- 
raten und greifen nun die Erde an. 
Sie haben jetzt die Aufgabe, die 
Angriffe der AEs abzuwehren und 
diese in den Weltraum zurückzu- 
drängen. Die Roboter greifen im- 
mer als Formation an. Hat man drei 
dieser Formationen bis auf den letz- 
ten AE ausgeschaltet, so kommt man 
ins nächste Schlacht-Bild. Sie haben 
nur wenig Zeit eine Formation völlig 
zu zerstören, denn die AEs verlas- 
sen nach kurzer Zeit das Schlacht- 
feld wieder. Aber kaum haben die- 
se das Feld geräumt, ist auch schon 
eine neue vollständige Formation 
zur Stelle, um den Angriff fortzufüh- 
ren. 
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D: Roboter (AEs) wurden ur- 
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Aektiom- Spiel 


jonen 
Zwei gpieistuation® 


Zu steuern ist das Spiel nur mit Joy- 
stick. Mit dem Steuerknüppel wer- 
den die Raketen-Batterien nach 
links beziehungsweise rechts be- 
wegt. Das Abfeuern der Raketen er- 
folgt mit der Auslösetaste. Doch hier 
liegt eine Raffinesse des Spiels. Die 
Raketen detonieren erst nach dem 
Loslassen der Taste. So muß der 
Spieler die Raketen genau in der 
Flugbahn der AEs zum Detonieren 
bringen. Dies erfordert außeror- 
dentliche Umsicht und schnellstes 
Reaktionsvermögen, da die AEs zu 
allem Überfluß noch eigene Ge- 
schosse abfeuern, denen man aus- 
weichen muß. 

Das Spiel besteht aus vier 
Schlacht-Bildern, welche die grafi- 
schen Möglichkeiten des VC 20 voll 
ausschöpfen. Auch die vier Tonge- 
neratoren des Volkscomputers blei- 
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Sie kommen aus den 


unendlichen Weiten des Weltalls. 
Retten Sie die Erde vor außer 
Kontrolle geratenen Robotern! 


ben nicht unausgenutzt. Hat man 
einmal alle vier Schlachtfelder 
überwunden, so beginnt das Spiel 
von vorne, wird aber schwieriger, 
dadie AEsnochttrickreicher angrei- 
fen. 

Das Spiel A.E. von Broderbund 
Software ist zum Preis von zirka 109 
Mark als ROM-Modul für den VC 20 
erhältlich. 


Fazit: 

Wer sich ein Schießspiel zulegen 
will, bei dem man nicht blind und 
monoton, sondern gezielt schießen 
muß, der wird bei diesem Spiel be- 
stimmt nicht so schnell die Lust ver- 
lieren. Ein gutes Schießspiel zeich- 
netsich eben durch eine dauerhafte 
Spielmotivation aus. 


(Christian Quirin Spitzner) 
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FERERRENIE 


Dieses Spiel weist zehn verschiedene Szenen mit 
unterschiedlichen Schwierigkeiten auf und ist für 
125 Mark im Handel erhältlich. 





Laden des Programms von Dis- 

kette »Time-Master-Time« und 
müssen mit Hilfe einer Zeitmaschine 
Dinosaurier-Eier und Jung-Dino- 
saurier aus der Steinzeit in die Zu- 
kunft retten. 

Der Anblick des ersten Screens 
läßt einen glauben, daß man es mit 
einem weiteren Kletter-Hüpf-Renn- 
Spielchen zu tun hat. Doch das 
täuscht. 

Dieses Spiel ist weitaus komple- 
xer aufgebaut. Sie selbst erschei- 
nen in Level 0 in einem Zeittor und 
müssen jedesmal, nachdem Sie so 
viel Eier, wie Sie tragen können — 
insgesamt drei Stück — gesammelt 
haben, in das Tor zurückkehren. Sie 
schicken die Eier in die Zukunft, flie- 
gen selber mit und erscheinen wie- 
derum irgendwo auf der Szene. 
Auchhaben Sie die Möglichkeit, ab- 


L aut Anleitung sind Sie nach dem 
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sonderlich mutierte Blumen zu fres- 
sen, »Power Flowers« genannt, die 
Ihnen die Kraft geben, mehr als drei 
Eier zu tragen. 

An der Ausführung dieser Hand- 
lungen werden Sie von wie wild her- 
umtrippelnden und schleichenden 
Spinnen, Schlangen und Tausend- 
füßlern gehindert. Diesen, sonst so 
possierlichen Tierchen, können Sie 
durch Herabrollen von heimtücki- 
scherweise an der Decke ange- 
brachten Felsbrocken ein Ende ma- 
chen, was einen dicken Pluspunkt 
entspricht. Bei Berührung dersel- 
ben wird Ihnen jedoch Lebensener- 
gie abgezapft und Sie müssen sich 
schleunigst in Ihr Zeittor zurückzie- 
hen, um diese wieder auf 100 Pro- 
zent zu bringen. Ist dies nicht der 
Fall, verwandeln Sie sich in eine 
Spinne, worauf Ihr zweites Leben 
beginnt. 





Weiterhin versucht immer wieder 
der Fuß, der um Ihre kleinen Nach- 
folger besorgten Dinosauriermut- 
ter, der fast ein Drittel des Bild- 
schirms ausfüllt, Sie zu zerquet- 
schen. Daraufhin bricht Ihr drittes 
Leben an. 

Hervorragend gemacht ist die 
Punktezählung, die nicht — wie bei 
anderen Spielen — in Tausendern 
oder Millionen zählt, sondern in rea- 
listischen Einerschritten. Da sind 
100 Punkte schon eine echte Lei- 
stung! Außerdem gibt es noch die 
schöne Möglichkeit, sich in höhere 
Levels zu teleportieren. Es werden 
aber die, in diesem Levelnoch nicht 
gesammelten Eier, als Minuspunkte 
abgezogen, wodurch es schon ein- 
mal passieren kann, daß man mit 
250 Minuspunkten im Level 10 an- 
kommt. 

Insgesamt ist es eines der schön- 
sten und einfallsreichsten Spiele 
der letzten Zeit, bei dem nur der 
Sound nicht ganz dem Niveau ent- 
spricht. 

(Andreas von Lepel) 
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uenz 
ne Sequenz liegt vor, wenn meh- 
rere Anweisungen hintereinander 
ausgeführt werden sollen (Bild ]). 

In die jeweiligen Kästchen trägt 
man jeweils einen Befehl ein oder 
auch die Bezeichnung kompletter 
Programmteile. 


Man unterscheidet drei Formen: 
IE.THEN / IF.THEN..ELSE / CASE 

Man benutzt diese Formen, um Be- 
fehle oder Befehlsgruppen oder 
auch komplette Programmteile nur 
dann ausführen zu lassen, wenn ei- 
ne Bedingung erfüllt ist (Bild 2, 3 
und 4). 


Wiede 
Man benutzt zwei Formen der 
Wiederholung: 


DO WHILE / REPEAT 

Man benutzt diese Formen, um Be- 
fehle oder Befehlsgruppen oder 
auch komplette Programmteile 
mehrmals hintereinander ausfüh- 
ren zulassen. Eine Programmschlei- 
fe kann nur mit diesen Formen reali- 
siert werden (Bild 5 und 6). 


Facit 

Beim Struktogramm entfällt völlig 
die Flußlinie, sie wird ersetzt durch 
die gemeinsame waagerechte Be- 
grenzungslinie. Struktogramme 
kann man immer in Programmab- 
laufpläne übertragen, umgekehrt ist 
es oft nur unter erheblichem Auf- 
wand möglich. Das bedeutet, daß 
man durchaus auch mit Flußdia- 
grammen strukturiert programmie- 
ren kann; der Zwang dazu entfällt je- 
doch. Bei der Planung seiner Pro- 
gramme mit Struktogrammen wird 
man es schwer haben, »Spaghetti- 
Kode«zu produzieren. Und dasistal- 
lemal ein Vorteil. Und machen Sie 
bitte nicht den Fehler wie so viele 
(ich schließe mich dabei nicht aus) 
und erstellen Sie Ihr Flußdiagramm 
oder Struktogramm erst dann, nach- 
dem Sie kodiert haben und Sie 
durch Ihr eigenes Programm nicht 
mehr durchsteigen. (ak) 
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COMPUTER. 


Der Commodore-Heimcomputer berech- 
net, listet, und er bringt sogar technische 
hi Zeichnungen auf den Fernseher daheim. 
Ein tolles Ding: ein echter Computer mit 
unbegrenzten Möglichkeiten. 

Er bringt aber auch riesigen Spaß für 

n die Freizeit. Macht Musik, führt die Bun- 
En, MR f desligatabelle und spielt die spannend- 
| Bu er sten Videospiele. Ein faszinierendes Ding: 
| | ", j ein echter Computer, den man spielend 
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beherrscht. Der Commodore-Heimcompu- 
Bi Bruni Pl ter - der beliebteste Entwicklungshelfer 
Ri der Jugend. 


Beim Commodore-Vertragshandel, in führenden Waren- 
häusern, guten Rundfunk- und Fernsehfachgeschäften und 
großen Versandhäusern. 

Mehr Informationen gibt's von: Commodore Büromaschi- 
nen GmbH, Abt. MK, Lyoner Straße 38, 6000 Frankfurt 71. Die 
Anschrift des Commodore-Fachhändlers in Ihrer Nähe erfah- 
ren Sie telefonisch von den Commodore-Verkaufsbüros: 
Düsseldorf 0211/31 2047/48, Frankfurt 0611/6638199, 

IDRRRIRRRTT ei Hamburg 040/213 86. München 0 89/46 30.09, Stuttgart 
rate Ben, Se 07 11/24 7329. Base! 061/23 78.00, Wien 02 22/67 56.00. 
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= Commodore 


Eine gute Idee nach der anderen. 


Quicktext 
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uicktext ist ein vielfältig 
einsetzbares Textverar- 
beitungsprogramm für den 
Commodore 64 in Verbin- 
dung mit der Floppy 1541 
und einem Matrixdrucker 
(zum Beispiel Epson 
MX-80/82, FX 80 mit Data 
Becker Interface). Das Pro- 
gramm benötigtzirka 12 KBy- 
te Speicherplatz; es bleiben 
also etwas mehr als 25 KByte 
zur Texteingabe übrig. Der 
einzige Nachteil ist eine rela- 
tiv langsame Textausgabe 
auf dem Drucker, die sich 
aber durch Compilieren des 
Programms beschleunigen 
läßt. 
— Zeilenlänge frei definie- 
ren 
— Vorgegebenes Textformat 
übernehmen 
— Neue Texteingabe 
— Zeilen ändern, einfügen, 
löschen und kopieren 
— Buchstaben oder Wörter 
im Text suchen und gegen 
neue Wörter oder Buchsta- 
ben austauschen 
— Beliebiges Ausärucken 
von Texten (Zeilen oder 
Blöcke) 
— Variabler Zeilenabstand 
(1, 1,5, 2) 
— Textformatierung (rechter 
Randausgleich) 
— Seitennumerierung 
— Briefkopf und Adresse 
nach DIN 676 
— Unterstreichen, Fettdruck 
und Breitschrift in allen mög- 
lichen Kombinationen 
— Wahlweiser Ausdruck auf 
Endlospapier oder Einzel- 
blatt 
— Druck der Sonderzeichen 
46,U,AU08 
— Druck von hoch- und tief- 
gestellten Textteilen 
— Umfangreiche Disketten- 
befehle (siehe Bild ]). 

Nach dem Laden und Star- 
ten meldet sich Quicktext mit 
dem Hauptmenü (Bild 2). Von 
dort aus werden die einzel- 
nen Unterprogramme sowie 
das Diskettenmenü ange- 
wählt. Kehrt das Programm 
nicht von selbst ins Hauptme- 
nü zurück, so ist dies jeder- 
zeit durch Betätigen der 
»Pfeil-LinksTaste« möglich 
(auch während der Textein- 
gabe). Erläuterungen zu den 
einzelnen Unterprogram- 
men: 

1. Text eingeben 

Zunächst fragt das Pro- 
gramm, ob man neuen Text 
eingeben oder an einem be- 
reits im Speicher befindli- 


chen Text weiterschreiben 
will. Danach wird die Zeilen- 
länge bestimmt. Nach Einga- 
be der Zeilenlänge schaltet 
der Computer auf den Text- 
modus um, was am Farb- 
wechsel des Bildschirms 
und dem neuen Cursor zuer- 
kennen ist. Jetzt kann mit der 
Texteingabe begonnen wer- 
den. Der Wagenrücklauf 
wird mit der »Return«Taste 
betätigt oder von selbst aus- 
gelöst, wenn die maximale 
Zeilenlänge erreicht ist. 

Die _Cursorsteuertasten 
funktionieren im Texteinga- 
bemodus nicht. Der Textcur- 
sor kann mit Hilfe der IN- 
ST/DEL-Taste rückwärts be- 
wegt werden. Größere Feh- 
ler können aber immer noch 
mit Hilfe des Editierpro- 
grammes korrigiert werden. 

Zur Eingabe von Sonder- 
zeichen und Sonderfunktio- 
nen wird die Commodore- 
Taste in Verbindung mit der 
jeweiligen Buchstabentaste 


gedrückt (Bild 3). 
Nach Beendigung der 
Texteingabe erfolgt die 


Rückkehr in das Hauptmenü 
durch Drücken der »Pfeil- 
Links-Taste«. 

2. Text ändern 

Zunächst fragt das Pro- 
gramm nach dem Textbe- 
reich, der gezeigt werden 
soll. Dieser wird jeweils zu- 
sammen mit zwei Befehlszei- 
len am unteren Bildschirm- 
rand angezeigt. Die einzel- 
nen Editierfunktionen sind in 
Bild 4 erläutert. 

3. Text formatieren 

Der Text wird auf Basis der 
eingegebenen Zeilenlänge 
formatiert (rechter Randaus- 
gleich). 

4. Text ausdrucken 

Das Programm fragt den 
Benutzer nun nach seinen 
Wünschen hinsichtlich Brief- 
kopf, Zeilenabstand, Seiten- 
numerierung, Länge des 
Ausdrucks, Linker Randab- 
stand, Endlospapier oder 
Einzelblatteinzug. 

In einem weiteren Durch- 
gang werden nochmals alle 
gewünschten Funktionen an- 
gezeigt. Änderungen der 
Parameter sind vor der Aus- 
gabe möglich. Dies ist wich- 
tig, falls zum Beispiel verges- 
sen wurde, den Briefkopf 
einzugeben. Nach Beendi- 
gung der Druckausgabe 
fragt das Programm, obnoch 
ein weiterer Druck ge- 
wünscht wird. Wenn ja, so 


geht eszurück zu den Einzel- 
fragen. Wenn nein, so kehrt 
man ins Hauptmenü zurück. 
5. Diskettenverwaltung 

Vom Diskettenmenü (Bild 
l) aus werden die einzelnen 


Unterprogramme ange- 
wählt, die in Bild 5 erläutert 
werden. 


6, Briefkopf eingeben 

Es gibt zwei Möglichkei- 
ten, einen Briefkopf einzuge- 
ben: mit oder ohne Adreß- 
feld für einen Fensterbrief- 
umschlag nach DIN 676. Das 
Programm fragtnachderge- 
wünschten Form der Einga- 
be des eigentlichen Brief- 
kopfes. Soll die betreffende 
Zeile des Briefkopfes oder 
der Adresse im Adressen- 
fenster leer bleiben, so ist 
einfach die »Return«Taste 
einzugeben. 
7. End 

Äusstieg aus dem Pro- 
gramm. Diese Funktion ist 
mit Vorsicht zu genießen, 
denn ein eventuell vorhan- 
dener Text bleibt zwar im 
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Speicher zunächst erhalten; 
wird Quicktext jedoch neu 
gestartet, werden alle Varia- 
blen (auch der Text in Z$) un- 
wiederbringlich gelöscht. 
Für das einwandfreie 
Funktionieren des Pro- 
gramms sind natürlich noch 
einige Dinge zu berücksich- 
tigen: 
1. Die maximale Zeilenlänge 
beträgt 80 Zeichen. Bei der 
Eingabe von Sonderfunktio- 
nen erscheinen auf dem 
Bildschirm Grafikzeichen, 
die zwar nicht abgedruckt, 
jedoch im Text mit abgespei- 
chert werden. Beider Einga- 
be von Sonderfunktionen er- 
höht das Programm die Zei- 
lenlänge jeweils entspre- 
chend, aber nur bis maximal 
80 Zeichen/Zeile. 
2. Wenn der Zeilenabstand 
über mehrere Zeilen hinweg 
verändert werden soll, so ist 
das Sonderzeichen an den 
Beginnjeder Zeile zu stellen. 
Dies ist zum Beispiel bei län- 
geren Zitaten erforderlich, 
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Bild 3. Sonderzeichen und Sonderfunktionen 
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die sich über mehrere Zei- 
len hinziehen. Das Unterpro- 
grammin den Zeilen 8500 bis 
8560 verändert dann die Va- 
riable t (Zeilen pro Seite). 

3. Das Programm akzep- 
tiert nur die Eingabe von ma- 
ximal 500 Zeilen. Sind 90 Pro- 
zent des Speichers vollge- 
schrieben, kehrt das Pro- 
gramm ebenfalls ins Haupt- 
menü zurück. Der Text kann 
anschließend noch geän- 
dertund abgespeichert wer- 
den. 

4. Die RUN/STOP-Taste ist 
durch einen POKE-Befehl in 
Zeile 10 ausgeschaltet, umzu 
vermeiden, daß das Pro- 
gramm durch versehentli- 
ches Betätigen dieser Taste 
aussteigt. 

5. Die Verwendung von Än- 
führungszeichen ist nicht 
möglich. Sie werden durch 
das Hochkomma (') gesetzt. 


Editiermöglichkeiten 

-A- Das Programm fragt nach 
der zu ändernden Zeile. Die- 
se wird auf den Bildschirm 


Textprogramm (ll 


Menue 2 


Text 
Text 
Text 
Text 


End 


V Bild 1. Diskettenmenü von Quicktext 


gebracht und kann nun be- 
liebig geändert werden. Das 
Fragezeichen und die An- 
führungsstriche dürfen nicht 
geändert werden, da sonst 
Fehler auftreten. Mit der 
»Return-Taste« kehrt man ins 
Hauptmenü zurück. 

-L- Die betreffende Zeile 
wird gelöscht. 

-E- Das Programm fragt, vor 
welcher Zeile eingefügt wer- 
den soll und schaltet dann in 
den Texteingabemodus um. 
Es können nur 60 Zeilen auf 
einmal eingefügt werden. 
Rückkehr mit der »Pfeil- 
Links-Taste«. 

-J- Hier kann ein Buchstabe 
oder ein Wortim ganzen Text 
ausgetauscht werden. Das 
Programm fragt bei jeder 
einzelnen Möglichkeit, ob 
ausgetauscht werden kann. 
Ist dies nicht möglich, so 
wird »Tausch nicht möglich« 
eingeblendet. Wird bei der 
Bereichseingabe '0' einge- 
geben, so wird der gesamte 
Text nach Änderungsmög- 
lichkeiten durchsucht. 


eingeben 
korrigieren 
ZT EEE E 0 703 
ausdrucken 
Diskettenverwaltung 
Briefkopf eingeben 
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A Bild 2. Hauptmenü von Quicktext 


Textprogsramn Usa 


Diskettenverwaltung) 


Text 


Bahhahhhhh 


Text speichern 
Text einlesen 
loeschen 


Meuer Dateiname 


Directory lesen 


Texte verketten 


Hauptmenue 


Eingabe > 





-B- Beim Blocktausch können 
ganze Textblöcke mit belie- 
biger Länge versetzt wer- 
den. Auch eine Kopie ist 
möglich, wennderalte Block 
einfach nicht gelöscht wird. 
'+' Mit dieser Taste wird der 
Text nach vorne geblättert 
{= Mit dieser Taste wird der 
Text zurückgeblättert 

Mit der »Pfeil-Links-Taste« 
schließlich kehrt man ins 
Hauptmenü zurück. 
Diskettenfunktionen 
l. Text speichern 

Das Programm initialisiert 
die Diskette, liest den Fehler- 
kanalausund fragt dann den 


Zeilennummer 
10- 20 

sierung 

30- 100 


200- 405 
sors 


2000- 2620 
3000- 3170 


Funktionen 
3200- 3220 
3300- 3310 
3400- 3510 
3600- 3690 
3800- 3875 
4000- 4620 
5000- 5220 
5230- 5395 
5400- 5560 
5600- 5880 
6000- 6070 
6200- 6250 
6400- 6460 
6600- 6620 
6800- 6820 
7000- 7100 
7200- 7600 
8000- 8100 
8500- 8560 
9000- 9092 


Texteingabe 
Edit-Bildschirm und Änwahl der Edit- 


Benutzer nach dem Dateina- 
men. Anschließend wird der 
Fehlerkanal wieder ausgele- 
sen. Wenn alles in Ordnung 
ist, wird der Text gespei- 
chert und das Programm 
kehrt ins Hauptmenü zurück. 
Ist ein Text mit gleichem Da- 
teinamen vorhanden, wird 
gemeldet: »File exists«, und 
das Programm fragt, ob die 
alte Datei überschrieben 
werden soll. Wenn ja, wird 
die alte Dateiüberschrieben 
und durch die neue ersetzt. 
Wenn nein, muß mansich ei- 
nen neuen Dateinamen 
überlegen. 


Bildschirmfarben, Dimensionierung, Initiali- 


Sonderzeichendefinition; Sprung zum 
Hauptmenü 
Steuerung und Abfragen des Eingabecur- 


Änderung einer Textzeile 

Löschen einer Textzeile 

Einfügen einer Textzeile 

Wort- oder Buchstabenaustausch 
Blockaustausch 

Textformatierung (rechter Randausgleich) 
Eingabe der Druckparameter 
Nochmaliges Anzeigen der Druckparameter 
Druck des Briefkopfes 

Druckausgabe 

Diskettenmenü 

Speichern eines Textes 

Einlesen eines Textes 

Löschen eines Textes 

Neuer Dateiname 

Directory lesen 

Texte verketten 

Bildschirmfarben 

Änderung der Variable t (Zeilen pro Seite) 
Sonderzeichen und Sonderfunktionen für 


Druckausgabe 


9100- 9110 

9200- 9250 
10000-10080 
11000-11110 


Auslesen des Fehlerkanals der Diskette 
Datei auf Diskette überschreiben 
Hauptmenü 

Eingabe des Briefkopfes 





Bild 5. Programmbeschreibung anhand der Zeilennummern 


Zeilenlänge 


Gesamtzahl der Zeilen 

Zeilennummer 

normale Get-Äbfrage nach Zeichen 
freier Speicherraum 

Anzahl der geschriebenen Zeichen 

Zahl der Zeilen pro Seite 

erste Zeile, die ausgedruckt werden soll 
letzte Zeile, die ausgedruckt werden soll 
Druckstartposition 

Zeilenabstand 

Variable für Sonderzeichen 


Seitenzähler 
Zeilenzähler 


zu druckendes Zeichen 


Dateiname 





Bild 6. Zusammenstellung der wichtigsten Variablen 





Quicktext 





2. Text einlesen 

Das Programm fragt nach dem Datei- 
namen und liest den Text ein. 
3, Text löschen 

Der gewünschte Text wird gelöscht. 
4. Neuer Dateiname 

Mit Hilfe dieses Befehls kann ein Text 
einen neuen Filenamen erhalten. Das 
Programm fragt nach dem alten und 
dem neuen Dateinamen und führt die 
Operationen aus. 
5. Directory lesen 

Das Directory (Inhaltsverzeichnis) 
der Diskette wird gelesen, ohne daß 
das Programm gelöscht wird; wichtig 
zum Auffinden von Dateinamen. 
6. Texte verketten 

Mit Hilfe dieser Subroutine können 
bis zu vier Programme verknüpft wer- 
den. 
7. Hauptmenü 

Mit diesem Befehl kehrt man ins 
Hauptmenü zurück, wenn dies nicht 
schon vom Programm erledigt wurde. 

(Joachim Schaller) 





Bild 4. Darstellung der Umlaute auf dem Briefkopt 


19 PRINT": POKESI289,9: FOKESI281 ,8:FOKE 
53272,23:POKE788 ,PEEK (788) +3: POKE6S59@,128 
29 DIMZS(SBD) ,Er(öil) 

38 RESSCHRFELAI+CHRF (IB) HCHRF (17) +CHRE(O 
I+CHRS 42) +CHRE (BO) CHR (1798) HCHRF IB) +CH 
RS(2) 

AD DESSCHRE (DO) +CHRE (ZB) +CHRE (162) +CHRF (O 
I+CHRS 134) HCHRE (BO) +CHRF# (162) +CHRE (28) +CH 
R$ (9) 

5a LEST=CHRE (DB) +CHRF (AD) +CHRSF (LSB) HCHRF (DO 
I +CHRE (2) +CHRE (BO) +CHRE (130) +CHRFE (AB) +CHR 
+08) 

&B GAF=CHRE (6) +CHREC1ABI HCHRE (ZB) +CHRFLT 
ZI +CHRE (HR) +CHRF (32) +CHRF (29) +CHRF (140) + 
CHR# (6) 

7a GISTCHRE(28) +CHRF LEI) +CHRE (TA) +HCHRE 
®} +CHRF (34) +CHRE (BI) +CHRF (34) +CHRE 12) +C 
HRF (28) 

88 GUF=CHRF (EB) ACHRFLISOI +CHRE (ZI +CHRF LO 
I+CHRE (2) +CHRF (8) +CHRF (2) +CHRE (II) +CHRF 
(68) 

98 SSF=CHRE (126) +CHRE (128) + CHRF (DO) +CHRE 
145) +CHRE BI +CHRE (145) +CHRF (146) HCHRE (1O 
DIACHRF(O) 

188 FR=FRE (0) :GOTO1@9909 

282 PRINT" II"; 

285 GETTF: IFTS="“THEN205 

218 T=ASC(TF) 2: IFT=2OANDW=LIANDZ<Z=IANDLENG 
TTF}-OTHENTS="":PRINT"U"}:2Z=1:60T0288 
215 IFW=2ANDT=ZBANDLEN(TT$) =BTHENTS="":G 
OTD2BS 

229 IFT=1540RT=1870RT=1700RT=1730RT=1880 
RT=1EIORT-1 PSORT-1720RT-19 1 THENU=U+1 

222 IFT=1710RT=1790RT=1870RT=177THENUSU+ 
1 

225 IFT=13THENPRINT" ";:P1=9d:P2=9: PJ=B:P 
4-9: U=U2:60T0335 

238 IFT>1SANDT<2BORT>2BANDT<S2ORT>I2BAND 
T< 1 3ZORTPIA44ANDT< 1L5BTHENTE="":G60OT0205 
235 1FTr9STHENPI=9; P2=8: P3=9:P4=9: U=U2:R 
ETURN 

248 IFT=3ZATHENTST"'" 

258 IFT=19IBORT=-19LORT-17B0ORTT157THENPITL 
EN(TTEI:PA=1 

268 IFT=164ANDP4=1THENPZ=LEN (TTS) :PI=P2- 
PizU=U-P3 

279 IFT<>2BANDLEN(TFITITHENPRINTTS; 

288 IFT<>2BTHENSSS 

2998 IFLEN(TT$S)=1THENS1S 

388 IFLEN(TTF) =BANDW=ITHENZ=Z-1: TTEHZH CZ 
):6070325 

35 IFW=ITHENFIG 


er 


327. IFLENLTTSI=BANDWSBTHENE=E-1: TTFFES(E 
):6070325 

318 TTS=LEFTSOTTF,LENTTE) -1) SPRINTCHRE( 
28) 3:G60T0282 

315 LeL-LENCTTFI:ETTFeER"IPRINT" IPS;CHRS CZ 
@)5; zIFW=ITHENZELZ)="": Z=Z-1: IFZ=DTHENZ=1 
318 IFW=SITHENTTS=7$(2) 

328 IFW=BTHENE=E-1: IFE=BTHENE=1 

32% IFW=BTHENTTS=ES(E)} 

324 IFW=2THENTTF="":60T02085 

325 IFLENITTEI>ISTHENPRINT" QII”: 

358 PRINT" ID": TT#; :60T0288 

335 IFLEN(TTSI<ABTHENKX=218+PEEK (214) :POK 
EX ,LPEEK(YIDRI2B) 

348 FRINTCHRELIIT) 5 E0=B: L>L+LEN (TTS): IFL> 
+ F2FRTHENCUSUB4B8B: RETURN 

345 RETURN 

355 IFO=WANDLENLTTS)I >U-ZANDTE=" "THENS7O 
569 TIE=TT$+T3: IFLENLTTS)=BOTHENI7O 

355 IFLEN (TTS) C<U+ZTHEN299 

378 P1=-9:P2=-0:PT=8:P4=9:U=U2:60T0340 
“28 FRINTIREIER WFEICHERPLATZ IN IYIES 
3": INTIFR)Y“ 

495 FRINT"WPIE INGABERDUTINE WIRD ABGEB 
ROCHEN. ":FORX=1 T010080: NEXT: T5="_Y: RETURN 
29080 W=eI:PRINT"IIIII-M oEITERSCHREIBEN"SF 
Cie) "w2-m /EUEN JEXT EINGEBENLEI>INGABE 








2028 GETXFEXFVALIXS)SIFXCIORXIZTHEN2829 

2830 ONXG0OTO2100,2588 

2108 PRINT"KZE":: GOSUBB109B: 2=2+1:60SUB208 

2195 IFT3=* _"THENZS(ZISTTEETTSEN" TS": 

4=9: GOSUBBODBB: RETURN 

2110 Z#1ZI=TT8: Z=Z+1: TI$="":GOSUB220 

D IFTS=NINTHENZSCZISTTSE TITTEN TFet 

W=B:G60SUB890B: RETURN 

2138 60102118 

BO PRINT" SFORX=1TOZE ZILK =": NEXT: 

1: 60SUB8108:G9SUE>O8 

18 IFTE=H _"THENZS(ZI=TTE: TITTEN N: TERN: 

:60SUB8008: RETURN 

B ZEI2I=TT$3 77241: TT9=" tr: GOSUB20B 

2238 IFTS="LFTHENZFIZISATTFETTSER" Te" t: 

“=9: GOSUEBBBB: RETURN 

2248 GOT02220 

26609 FRINT"LIEBEN WIE NUN DIE MAXIMALE © 

EILEN-W":PRINT"LAENGE (18-78) EIN "5; 

2618 INPUTU: TFU< LBORU>7BTHENPRINT"OD":60 
TozL1®@ 

2520 U2=U:PRINT"WOAGENRUECKLAUF ZWISCHEN 

"U-3"UND"U+2: FORX=1TOLBOB:INEXT:GOT0O2209 

3098 PRINT"LIEBEN WIE NUN DIE EILEN EIN 
‚, DIE WE SEHEN MOECHTEN.  {sRRTUM = 9) 
3018 INFUT"WPIE KLEINERE MHL: "3ArıIFA>S 

BETHENPRINT"OD":G60T05818 

3015 IFA=BTHENRETURN 

sa28@ INPUT"W>IE HÜEHERE MAHL: 

RBEISBRTHENPRINT"OD": 60103028 

3198 PRINT"L":C=B-A:FORXEATOBSTEP2: PRINT 

"IX" 2": TABLTIS ZEN) 

3187 FRINT"WI"SXHIS "I. SI TABLTISZECX+I 
I):NEXT 

311® POKE214,20:FRINT:PRINT:PRINTYALBEN 

DERN WEDESCHEN LI@WINFUEGEN WI BAUST 

H 

3115 FPOKE214 ,212 PRINT: PRINT:PRINT"WIE.DC 

KTAUSCH it VOR B-® ZURUECK d_WNENUE 

3128 GETKF: IFKF=""THENZ12O 

3125 IFKS="A"THENS209 

138 IFKS="L"THENSIOB 

3135 IFKS="E"THENIAOO 

3149 IFKS="T"THENS5BB 

3142 IFKt="B"THENI8OQO 

3145 IFKr="-"THENA=SA-1-C:B=A+C: IFA<CITHEN 

A=1:B=A+C 

3155 IFKF="+"THENA=TB+ 1: B=B+ I HC: IFBr1+C)S 

BOTHENB=S98: A=B-C 

3165 IFKf="_"THENA=0: B=B: RETURN 

317@ GOTO3186 

3288 INPUT / TE HEILE ";KKeWe2: 

IFKK<AORKK>BTHENS10® 

3228 PRINT"L"SPCIZICHRFLSSIZEIKKI SPRINT" 

BO" :: INPUTZS (KK) :G0T03100 

zzo@ INPUT"EELLT—e=- 17/8 (ARRTUM =), "KK 

ı IFKK=BORKKDTTHENS1B8 

33718 FORYaHKKTOZETRIKI=ZEIKH I NEXT: ZEIZI 

=": 2=7-1:KK=B:60T03108 

3499 PRINTER Z/= 17/8 VOR +EILE (SRRT 

UM = 9}"3: INPUTKK: IFKKDZORKK=BTHENS1OB 

3497 IFKK=BTHENS100 

3410 Wed: E=B:PRINT"S KOENNEN MAXIMAL 6B 
“EILEN EINGEFUEGT WERDEN.“ 

415 FORX=1T01808: NEXT:PRINT"E":E=1: IFZ+ 

1IY7S3BOTHENZ106 

3428 G05UB288: IFTS="_"THENEFIEI=TTE: TI 

"";T5="":G60T703509 

3425 ETIEI=TIS: TIS="": TIettrE=-E+l: IFEREI 

THENISBB 

3418 IFZ+E=-SBOTHENISOO 

3435 GOSUB20B 

3448 IFT#="_"THENEF tEIJATTSSTIE-Ht TER" N 

Soro3see 

3445 GOTO3A25 























"sB:1IFB<AD 











35909 Z=eZ+E:FORX=ZTOKK+E-ISTEP-1::25(X)=2 
F(X-E):NEXT 

23595 F=9: FORX=KKTOKK+HE-1:FSF+1:3 78 (X) ER 
FISEFIF)I=""INEXTIKK=B:E>1 

3518 GOTOJ108 

SAa0B PRINTrIZIU I e,9-| =": INPUT"WELTES 00 
RT":T5: IFTS=""THENISDBRB 

36985 INPUT"RYEUES O0RT"5ATS:IFATE=""THEN 
3685 

3612 PRINT"I=EI IT-Iel (ALLE EILEN = 8 
y- 

3615 INPUT"WeIE KLEINERE +EILE"SKKSIFKK> 
ZTHENPRINT"OOD" 60703815 

3628 IFEK=OTHENKE=1:KM=Z: 60705653598 

3625 INPUT"WPIE HOEHERE +EILES "KM: IFKMT 
KKORKMIZTHENPRINT "OOD" :GOT03625 

3420 FÜRF=KETOKM:L=TLEN TS} :M=LEN (ZECF)): 
FORO=1TONM-1.+1 

2535- 1IFMIDFLIF IF) „O,LICITETHENI6AB 

T640 AS=LEFTFIZELIF) „O-1) :BF=RIGHTFCZEF) 
„LENLZFLFIIFLITLOHLY) 

364% CH=MIDslZriF) ,„O+.,1):60T036578 

3655 IF(F)=-AHHATEıBS 

3668. NEXTO:NEXTF: AF="":Br=tN: Te N ATI" 
":0=9:7=0; FORP=1T010988: NEXT: 60103108 
476 PRINT"RTF.AS"WTTFTE"BE: PRINT"BRUSTA 
USCH ? tJ/N)W 

3675 GETX$: IFXt=""THENI67S 

3689 IFX2="J"THENSASS 

3685 IFXT="N"THENFSSO 

3698 50103475 

see INPUTRIIILL— IE, IE (SARTUMT-D) VO 
N 4EILE"; AA: IFAA=OTHENS1DOO 

3885 IFAA<LORAA>ZTHENPRINT"OID":GOTO3898 
818 PRINTSPCt2SI: INPUT"BIS EILE*:EB: IF 
BB<AAORBR>IZTHENPRINT"OD”:G0T0OI810 

3828 FRINT"WANZ=- FIT /E"SPCLIAI"VOR +EILE 
"+3 INPUTCC: IFCCLIORCCIZTHENPRINT"OD":GOT 
03329 

3838 DD=BB+1-AA: IFDD>SBTHENPRINT"ILOCK Z 
U GRUOSS":G0T05169 

3835 E=9: Ef=""::FURDSAATOBB:E=E+I:EFIEI = 
ZE(D)I:NEXT 

2848 Z=2Z+DD+1:FORD=-ZTOCC+HDD-1STEP-1:23(D 
)=27(D-DD) :NEXT:D=B:E-=B 

3845 FORD-LLTOCCHD-1:E=FE+1: 28 (DI=EFE) : 
NEXT:X=B 

3858 PRINT"LLT9= 17/8 VON ILOCK I 











(J/N}? 


3855 GETXS: IFX#=""THENSBSS 

SBAB IFXF="I"THENSB7S 

3865 IFXS="N"THENSLOD 

3878 6010385% 

3875 FORX=AATOZ: ZECKI=ZECX+DD) :NEXT:I=Z- 
DD:GOTOZ1EB 

4808 PRINT"AL=ER JEXT WIRD AUF*zU+2; "EI 
CHEN/+EILE FOR- MATIERT.W": IFZ=BTHENRETU 
RN 

4108 PRINT"WIITTE WARTEN WIE. ": V=lU+2:MS= 
B:FORX=ITOZ:L=LENZF (XI): TT=B 

4105 IFL<V-SORL=BANDX<ZTHENNEXTX:GOTO458 
a 

4106 IFL>VTHEN4680 

4118 V=V+MS:FORI=LTOISTEP-1: IFL=VTHENJ=1 
:60T04158 

4138 IFMIDE(ZECXI ,J,1I<C>" "THENA1SB 

4148 TT=1:Z80X)=LEFTFLZECK) ,JI+" "+RIGHT 
stZ80%) ,L-9):1=L+1 

4159 NEXTJ: V=U+2:M5=8: NEXTX:RETURN 

4588 IFX>=ZTHENRETURN 

46088 FORTS=LTOISTEP-1:0=ASCIMIDSLZEIXI,T 
ss,” 

4618 1F0=1730R0=-18I0R0=1880RO=1FBORO=191 
ORC=17B0R0=1670RO=1640RO=171THENMS=MS+1 
4615 1F0=1790R0=1770R0=1720R0=187THENMS= 
MS+1 

4628 0=®:NEXTTS:60T04110 

SO20 PRINT"TRIHUSDRUCK: ":PRINT"LII LMUSD 
RUCK"SPEC (72) ")_ m NENUE 

020 GETXF: IFXF=""THENSQ28 
59359 IFX$="A"THENSDEB 

5048 IFXt="_"THENRETURN 

s258 60705929 

SPAR PRINT"LIRIEFKOPF DRUCKEN? 
5070 GETUS: IFWS=""THENSO7O 
5875 IFWE="N"ORWF=*.]" THENSQSA 
5877 60105078 

SBE0 FRINT"WIEBEN SIE BITTE DEN +EILENAB 
STAND EIN: 

5998 INPUT Im, y1ı.5w, 2m "2A 
5198 IFZA=10RZA=1.SORZA=2THENS1OS 

5182: PRINT"00":60195999 

3105 IFZA=1THENZA=TE 

5197 IF7A=1.STHENZA=S3 

S189 IFZAH2THENZA=72 

3118 ZB=ZA 

5120 PRINT"WLINKER „ANDABSTAND (MAX. "78- 
U") "32 INPUTP: IFP+UH2>SOTHENPRINT"OID":GD 
105128 

5148 PRINT"WGEITENNUMERTERUNG (J/NI? 
SıS@ GETARF: IFABS=""THENSIS® 

SıAn IFABF="J"ORABSE="N"THENSIANM 

3170 PRINT"L":60105149 


(J/N) 


RKunmahn L/luni 10ONA 


5180 PRINT"WIISLATTEINZUG 
ER 
5182 GETF2$: IFF24=""THENS182 
5184 IFF2#="B"ORF2F="E"THENS19® 
5186 PRINT"L":G0705189 
5199 PRINT"WOELCHE +EILEN SOLLEN AUSGEDR 
UCKT WERDEN?@=4LLE 
5208 INPUT"WPIE KLEINERE MAHL: "A: IFA=OT 
HENA=1:B=2:J=1:G0T05258 
521@ IFA<BORA>ZTHENFRINT"OND":SOTO5208 
5228 INPUT"W-IE HOEHERE +EILE:";B: IFB<AO 
RB>ZTHENPRINT "OD": 60105220 
5238 IFWF="J"THENPRINT"KIRIEFKOFF WIRD A 
BGEDRUCKT 
5248 IFWE="N"THENPRINT"LIRIEFKOPF WIRD N 
ICHT ABGEDRUCKT 
5260 PRINT"WeEILENABSTAND ";: IFZA=TATHEN 
PRINT"W ı = 
5270 IFZA=S4THENPRINT"W 1,5 ® 
5288 IFZA=72THENPRINT"G 2 ® 
5298 PRINT"LLINKER -ANDABSTAND W"P"= 
5788 IFJ=1THENPRINT"WEUSDRUCK ALLER +EIL 
EN":60105320 
S3198 PRINT"WAUSDRUCK VON +EILE"A" RIS +E 
ILE"B 
5328 IFABF="J" THENPRINT"WWEITENNUMERIERU 
NG 
S338 IFABS="N"THENPRINT"LYEINE GEITENNUM 
ERIERUNG e 
5348 IFF24="B"THENPRINT"WPINZELBLATTEINZ 
UG 
5759 IFF25="E"THENPRINT"BNDLOSPAPIER 
5360 PRINT"LIEMLLE =INGABEN RICHTIG? (J/N 
> 
5378 GETFiS: IFFiS=""THENSS7O 
380 IFFIS="I"TTHENPRINT"KAUSDRUCK ERFOLS 
T. IITTE WARTEN @IE. ":G0T05400 
S398 IFFIF="N"THENP=B: A=B: B=O: FF="":60T0 
808 
5395 601053798 
540 OPENI1,4,1:0PEN2,4,7:PRINT#1 ,CHRS (27 
VPD"CHRELPICHRE (0) ; + IFWS="N"THENSER® 
5410 PRINT#1 CHRF (27) "E"SPO (&)WIFSPC (64- 
(LEN (WIE) I) I)WAF 
5328 PRINT#I,SPCLEIW2FSPC(64- (LENIW2EI)) 
ws 
SAIO PRINTHI,SPL(SIWIFSFE (b4- (LEN (WIF))) 
WAS: PRINTRL,SPCLH) WER 
S4am IFAFLIIC>H""THENSA7O 
5459 PRINTHI ,CHRE(IZICHRE (27) "F":PRINTHI 
ıSPC4(7ZIW7% 
5450 FORX=1TOI:PRINT#E1 ,CHRS (13) :NEXT:GOT 
05680 
5478 FORX=1T02:PRINT#1,CHRFLLSI:NEXT:PRI 
NTRL,CHRE(2TI"F" 
5480 PRINT#L,CHRFIISISPLCIIDI WISE" ® "Was" 
* "WSICHRFLISI:PRINTRL,SPE(B); 
5458 FORT=1T048:PRINTR2,"”";:NEXT 
Ss0B PRINTH1,CHRELLT) 
55198 FORP=1T05: IFAs (P)=""THENSSAO 
5520 IFP=STHENPRINTHL,CHREILTISPE(SIAF(P 
):G0T0$558 
SS5I9 FRINTML,SFLISIAF(PI 
5548 NEXTP 
5568 FORY=1TOS:PRINT#I ,CHRFLISISNEXT:PRI 
NT#1,SPCt7A)W7E:PRINTHI,CHRF(1Z) 
5688 MA=9:U1=1: IFZA=SHTHENRB=A 
5693 IFZA=SSTHENRI=I 
S&E86 IFZA=72ZTHENRE=2 
5618 IFF2#="E"ANDABF="N"THENRS=RB+1 
56268 IFWE="N"THENSSSO 
5838 IFUS="JHANDAStL)I=""THENSSAIG 
S635 IFZA=TIATHENT=41 
5436 IFZA=SATHENT=27 
56837 IFZA=72THENT=28 
5638 GOSUBSSOB:A=X+1:60T05708 
S6AB IFZA=IBTHENT=S1 
Sh4l IFZA=SATHENT=S4 
5642 IFZA=S72THENT=2& 
5643 GOSUBSS00: A=X+1:60705700 
56598 IFZA=ISTHENT=64 
5651 IFZA=SSTHENT=AS 
5652 IFZA=72THENT=32 
$653 G0SUBSSQ9: A=X+1:60705708 
5708 MA=B:U1=Uir1 
5719 IFF2#="B"THENPRINT"LIEITE"UI" EINGE 
LEGT?(J/N) "5 3 INPUTFSS: IFFIS<>" I" THENS710 
5722 IFF25="E" THENFORR9=1TORB:PRINT#1,CH 
RE(1Z) SNEXTRF 
5730 1FABS="J"THENPRINTHI1,SPCCISI"-HULIr- 
"CHRE(13) 
5748 IFZB=3S6THENT=62 
3741 IFZB=S4THENT=41 
S7A2 IFZB72THENT=30 
5758 GOSUBS808:A=X+1:60T0570@ 
SANG FORX=ATOB:PRINTHI CHRE (MI - -FNRT7=IT 
DLEN(ZFIX) I: IPS=MIDFLZEN) „ZZ, 1? 
5885 IFIPS=" "ORIPF=""THENSETO 
5838 IP=ASCIMIDFLZEIX),2ZZ,1)) 
S81B IFIP=1780RIP=18SORIP=1SAORIP-F1ORIF 
=1580R1P=9ZORIP=174THENIBOA 
5820 IFIP=1730RIP=1890RIP=18BORIP=1I00RI 
P=1P1ORIF=17OORIP-1670ORIP=1S4THENPBIS 


WENDLOSPAPI 


s925 IFIP=1720RIP=1870R1P=17I0RIP=1790RI 
P=177THEN?Q35 

5830 PRINT#I ,CHREL27) "S"CHRE (ZA): :PRINTR 
2, 1P#5 :NEXTZZ:FRINT#2:MA=MA+LEPRINTEL,CH 
REL2TI"ZUCHRS ZA) 

5848 IFMA-INT(T) THENRETURN 

SISB NEXTX:PRINTRIIÜLOSEI:CLOSEZ:PRINT"K 
JOCH EIN AUCK 17/037" 

5940 GETYF:IFYT=""THENSSEO 

5878 IFYS="I"THENA=B: X=9: T=9: GITOSBED 
S920 IFVF="N"THENMA=0:GOTIIQGCD 

EABO FRINT"RAEITFROSRANM en 12 "SPC 
(108) "=ISKETTENVERWALTUNGEENN 

HB1® PRINTSPE(LLI"WI-E TEXT SFEICHERN"SP 
C(6%) "W2-w [EXT EINLESEN"SPC (64) 

6029 PRINT"WS-@ JEXT LOESCHEN"SPC (64) "I 
-= /EUER ATEINAME"SPC(E2) 

6038 PRINT"WS-@ -IRECTORY LESEN"SFCI(E2)" 
6-m JEXTE VERKETTEN"SPL (62) 

4835 PRINT"W7-w JAUPTMENUELIEBBEIINGABE 


6949 GETXF:KXTVALIYEI: IFYLLORXITTHENEBAO 
608508 1FXr7THRENIQA0O 

65048 ONXGUSURS200, 6498 ,6699,6309,70908,72 
oa 

4870 60TDO19989 

5288 FRINTTLETSN- 17/9": 0PENI15,8,15:PRIN 
T#15,"10”":G03UB9 190: INPUT"WATEINAME: 8“ 
scBs 

6205 IFZ=@THENCLOSE1S: RETURN 

6218 DBs="@:"+CBr+" 5,W":GOTOP288 

6229 DPEN2,8,2,DEF:PRINT"WATEI W'TBst® 
WIRD GESPEICHERT." 

239 FRINT®2,2:PRINT#2, U: FORX=!TOZ: IFZ#« 
XI="HTHENZSIKI=" 

6248 PRINT#2,CHRF ISA) LZFILIEIFZE IN)" _UT 
HENZE(XIm"" 
6258 NEXT:CLOSE2:CLUSEISTRETURN 

6488 PRINT"EA/LTIAUT :OPEN1S,D, 15: PRINT 
#15,"19":S0OSUBI12B: INPUTTLIINTEINNME: @"; 
chs 

64385 DEF="A: "+TEse" 5,0 

6418 GOSUBI1BB:UFEN!,S,2,NB#:S0OSLETI180:P 
RINT"WEATEI WICBE"®@ WIRD EINGELESEN. 
6420 IFWF<>"OK"THENCLISE2:CLOSEIS:GOTOLO 
220 

6439 INPUTH2,2: INPUTRZ, U: UZ=U: FORK=I TOS® 
o 
8449 INPUTR2,Z3(X) 
64435 IFZSX)=""THENAAEO 
6447 IFZEIX) m" _"THENZE(XIT"" 

6458 NEXTX 
6468 CLOSE2:CLOSEIS: RETURN 

5688 PRINT"LLP=e= "AU" : OFENIS, 2,15: PRIN 
T#15,"19":G0SUBF100 
6518 PRINT"LIATEINAME U": INPUTCBE:DBE="S 
B: "+CBs 
6529 PRINT"ERIIATEI WICES"E WIRD GELOESCH 
T.*"z:PRINTH1S,DBF:CLOSE1S: RETURN 
EB28 FRINTTIIT MT UT /NE 
&818 OPEN1S,8,15:PRINT#1S,"10":5USUR9I00 
: INPUT"LIOLTER ATEINAME: W";CRr 
69328 INPUT"LRLVEUER MTEINAMF: WrıCFt 
FERN: HOFEFSHCBF:PRINTMIS,DRISCLOSEIS 
:RETURN 

7088 PRINT"L":OPENIS,8,15:PRINT#15,"19": 
GOSUB?198: CLOSEI1S 

7810 OPENI1,8,8,"8":N=9: Br=""sCH="":FORI= 
1T04:GETMI ,AF:NEXT 
7828 FORI=7T025: PRINT"W"::GET#I ‚At: B£=B$ 
+AS:NEXT:PRINTTAB(I@)BF: Br="" 

7038 FORI=2S5T038: GET#1,AF:NEXT:FORI=1T0S 
BD: FORI=1TOLS 

7040 GET! At: IFAF“ >CHRE (34) THENCS=CHHAF 
7050 NEXTJ 

7869 FORI=1T05:GETH1 AS: IFAFTICHREIIZITH 
ENBF=Br+AF 
70798 NEXT 

7820 IFCH="IREEIIEIEEIIEERLIET THENCLOSEI 
PRINT" ITTE IASTE DRUECKEN! ":WAITI98,1: 
RETURN 
7998 CLOSEIS:CLUSEZ 

7188 PRINTA,CHTABISTIBETAFTAHL:CH="":BE=" 
":FORJ=1TOI:GETHI,ASSNEXT:NEXT 

7298 PRINT"II 1 = 27.71 1”7"SFPC (26) "LoI 
EVIELE MTEIEN (MAX. 497 ARRTUM > 1 

7219 GETX$:X=VALIXF): IFX<LORX>4THEN7210 
7215 IFX=1THENRETURN 

7228 INPUT"RRYEUER ATEINAME?";DBF:OPENI 
5,8,15 

7238 FORS=1TOX:PRINT"WMATEI #*55: INPUTDS 
(SI :NEXTS 

7288 PRINT"RIIPMATEIEN WERDEN VERKETTET. 
7278 UNXGOSUBS,7300,7428,7508 

7230 RETURN 

7303 DAF="C9: "+DB4+"=B: "+Ds(1)+",O:"+Drt 
2):6070754808 

7408 DAs="CB: "+DBE+"=0:"+Dr(1)+",B:"+DEL 
2)+" ,0:"+DE(3):60107£28 

7598. DAS="CD: "+DBrr"=0: "+Ds (1)+",QBr"+Drt 
DH ‚DerinelT)en ‚Or "DEN EGOTO7ERE 
7608 PRINTRIS,DAF:GOSUBP109: CLOSEISTRETU 
RN 


NH 





2099 POKEST289, 9:POLEFFZUL ,BrRETURN 

S1DB POKEST229, 12: POKESS281 ,22:RETURN 
8533. 1FZB=SSANDZA=SITHENT=T-,3 

esig IFZB=IGSANDIA=TDTHENT=T-.5 

8520 IFZD=TANNDZASISTHENT=-T+.3 

8539 IFZ8=-S4ANDZA=72THENT=T- .3 

83542 IF7E=7ZANDZA-SSTHENT=T+.& 

5598 ITZB=72ANDZA=SITHENT=T+.I3 

8S35B RETURN 

9208 IFIP=175THENMAF-AEF 

9802 IFIP=1ASTHENMAF=DEF 

9884 IFIP=1B4THENMAS=UER 

9805 IFIP=9ITHENMAS=ENI 

9988 IFIP=16STHENMAF=GIF " 

9818 IFIP=I3THENMAT=GUS 

2912 IFIP=174THENMASSSSS 

F2358 PRINT#HI,CHRFI2TI"LICHRF (LI) SCHRE(BI 
s:PRINT#HI „MAF+CHRSE (BI HCHRE (O8); : IP="":60 
105838 

9035 IFIP=173THENPRINT#HI ,:CHRF (27) *-"CHR 
st); s Ips="" 

9848 IFIP=1BITHENPRINTHI ,SCHRELZTI TE" EI 
Pr=r" : 

9845 IFIP=18BTHENPRINT#1 ,;CHRF (27) "ECHR 
FI27I"-"CHRELI) ;S IPF=t" 
9859 IFIP=I1FOTHENIPS=CHRE (14) 

9855 IFIP=19LTHENFRINTHL,SCHRFL27I"- "CHR 
#(1);: IPS=CHRS (1A) 

9968 IFIP=170THENPRINT#HL ,SCHRE(2T)"E"::T 
PS=CHRSE (14) 

9855 IFIP=167THENPRINT#I , HEHRF (27) YEICHR 
FL2TI"-"CHRELLI ZZ IPISCHRE (16) 

9867 IFIPF=164THENPRINTMI „;CHREL2T)"FOEHR 
FL27IH TICHRE 27) HHICHRE III I-TCHRE(O) Sr 
PS=CHR? (20) 

79798 IFIP=EI71THENZA=I5: Ipfe®" 

9872 IFIP=179THENZA=54: IPt="" 

9874 IFIP=177THENZA=72: IPs="" 

90875 IFIP=172THENPRINT#1 ,CHREL27Y"S"CHRE 
(B);5:IPzer" 

9378 IFIP=187THENPRINTHI  CHRELZTI"S"CHRS$ 
(1), 21PH="* 

7898 IFZB- >ZATHENGOSUBBSEH 

99872 GOTOSSI0 

7188 INPUTHIS,VE,HS,X$.Y8: IFVAL(YEI<IOTH 
ENPRINT"W"VF, WS ,X3,YSU 

F118 RETURN 

27288 OFEN2,8,2,DBF:60SUBI19D: IFVAL(VFI<> 
&3THENCLOSE2: PRINT#1S,"S8: "+CB5:GOT05228 
2219 IFVAL(USI=SITHENFRINT"ATEI VEBERSC 
HREIBEN WICJ/N) 

2229Q GETZ$: IFZ5=""THEN9222 

97238 IFZE="N"THENCLOSE2:CLOSE15:G0T0&288 
9248 I1FZ#="J"THENCLOSE2:PRINTHIS, "SO: "+C 
22: C0SUB9109:60T05220 

9258 G0T09220 

10909 x£="":X=B: 0-9: K=P: PRINT"IZI EXTPROS 
RAmM Ge al ll 

10919 PRINT” \ENUE: "SPC (354) "pp 
wı-m JEXT EINGEBEN"SPC 6A} 

18028 PRINT"WZ2-B JEXT KORRIGIEREN"SPC (81 
YrW5-® JEXT FORMATIEREN"SPC (#1) 

18858 PRINT"WI-B JEXT AUSDRUCKEN"SPL (52) 
"5-8 =-1SKETTENVERWAILTUNG"SPC (58) 

18039 FRINT"YS-®@ IRIEFKOPF FINGEBEN"SPC( 
SI) LITE TNTIECKERPPPPPPPEI-TNOHEE > 

10058 GETXF:X=VAL(KSI : IFX< LORX>7THEN1BBA 
a 

1898708 1FX=7THENPOKE788,39: PRINT"K"::END 
18075 IFX=STHENAOBO 

1P88B ONYGOSUEP2099 ,5099,4200,5092,.11008 
:60T0180088 

110822 FRINT"GLIEBEN WIE BITTE DEN JEXT D 
ES IRIEFKOPFESEIN: (sARTUM = 9) 

11818 INPUT"LREILE 1 Li: "Y:Wir: IFWIS="O"T 
HENRETURN 

11815 INPUTRHEILE 2 L1:";w2r 

11829 INPUT"BBEILE I LI: ";USE: INPUT"WeEI 
LE A LI"; WB$ 

11830 INPUT"WOTRASSE: "Was: INPUT"WILe/00 
HNORT/IE: "WS 

11058 INPUT" ELEFON: ";Wös: INPUT"IATUM: 
“W7F 
110658 FRINT"WANSCHRIFT EINGEBEN? (J/N} 
11078 GETYf: IFYS=""THEN!IO7O 
11888 IFYt="N"THENRETURN 

11098 IFYF="J"THENI111O 
11108 GOTO11978 

111198 PRINT"E":FORP=ITOS:PRINT"WeEILE"P" 
+": INPUTASF (P) :NEXTP:RETURN 
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Ben das Programm 


geladen wurde, er- 
scheint zunächst das Haupt- 
menü (Bild 1). Durch Wahl ei- 
ner der im Menü angezeig- 
ten Ziffern können nun die 
einzelnen Programmteile 
aufgerufen werden. 
Beiderersten Anwendung 
wird man sinnvoller Weise 
den Punkt »l« anwählen, um 
die Klassenliste anzuferti- 
gen. Dabei braucht mansich 
nur an die Bildschirmanwei- 
sungen zu halten. Verläßt 
man diesen Programmteil, 
so ist ein Rücksprung dorthin 
unmöglich, um Fehler in der 
Notenzuordnung zu vermei- 
den. Das gilt auch dann, 
wenn nach dem Programm- 
start Daten von Disk oder 
Band geholt wurden. Nach 
Verlassen des Punktes »l« 
oder nach Laden der benö- 
tigten Daten erscheint unter 
Punkt »2« die Übersicht über 
Namen und Noten einzelner 
Arbeiten sowie die Durch- 
schnittsnote der geschriebe- 
nen Arbeiten (Bild 2). Im Pro- 
grammteil »3« wird den er- 
reichten Punkten die ent- 
sprechende Note zugewie- 
sen. Dazu wird zunächst 
nach der Nummer der Ar- 
beit und der Gesamtpunkt- 
zahl gefragt. Anschließend 
gibt der Computer eine Stan- 
dardbewertungaus, dieman 
übernehmen oder auch 
durch eine andere ersetzen 
kann. Die notwendigen 
Schritte sind auf dem Schirm 
erkennbar. 
Nach der Notenverteilung 
wird nach dem Namen und 
der erreichten Punktzahl ge- 


fragt. Die Namen können 
vollständig oder abgekürzt 
auf die ersten vier Buchsta- 
ben eingegeben werden. Je- 
de Eingabe muß mit »RE- 
TURN« abgeschlossen wer- 
den. AÄnschließend er- 
scheint die erreichte Note 
am rechten Bildschirmrand. 

Will man sich den Über- 
blick über Klassenarbeiten 
ausgeben lassen, so wählt 
man die »4«. Nach Eingabe 
der AÄrbeitsnummer er- 
scheint der entsprechende 
Klassenspiegel. 

Die Programmteile »5« und 
»6« dienen der Datenpflege. 
In »5« können Neuzugänge 
an die Liste angefügt wer- 
den. Die Vorgehensweise 
entspricht dem Teil »l«. In »6« 
können eingetragene Arbei- 
ten wieder gelöscht werden. 
Dieser Programmteil wird 
durch ein Untermenü ge- 
steuert, das auch den Rück- 
sprung ins Hauptmenü ge- 
stattet. Alle Arbeiten der 
Nummer X werden durch 
die Ziffer »2«, Arbeiten ein- 
zelner Schüler durch die »l« 
gelöscht. Die Eingabe der 
Schülernamen erfolgt wie im 
Programmteil »Notenvertei- 
lunge«. 

Sollen alle gespeicherten 
Daten ausgedruckt werden, 
so wählt man die »7« (Bild 3). 
Getestet ist dieser Teil auf 
dem Nachfolger des VC 
1525, dem MPS 801. 

Um das Programm zu be- 
enden, drückt man schließ- 
lich die »8«. Dieser Teil sorgt 
für die Datensicherung auf 
Diskette oder Band. 

(Dirk Schwerdfeger) 


G 64 


Der hier vorgestellte »elektronische Lehrerkalender« entstand aus dem Bedürf- 
nis heraus, sich die im Lehrerberuf anfallende tägliche Routinearbeit zu er- 
leichtern. Das Programm übernimmt die Verwaltung der Noten einer 
Schulklasse und stellt einige Funktionen zur Verfügung, mittels 
derer sich der Lehrer schnell einen Überblick über den 
Leistungsstand der Klasse verschaffen kann. 


Bild 3. Auf Knopfdruck möglich — Ausdruck von Klassen- 


spiegeln zu allen Arbeiten 
KLASSEHSPIEGEL 
1 „ARBEIT 
Tal SI SEIT TEE IV Ta N 


2 & £ & 2 
2 „ARBEIT 
Seren 
2 2 £ & £ = 
3 „ARBEIT 
Esel IT 
1 l. 1 £ 1. J 


Bild 1. Das Hauptmeni 
des Lehrerkalenders 
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EEE SCH SE TE N IE 


KL$=:Klasse 
S]J$=:Halbj-Beginn 
B$ =:Nameneing. in '3' 


ASN)=:Name 

FA$ = :Fach 
FI$=:Filename 

Für 'GET’: Q$/X$/Z$ 
X2=:Rückspr.--Äbfrage Y=:Daten laden? 
LI/L2=:Namen bis 10 Zeichen auffüllen 

ng W=:Arb-Nummer in '5’ 
GP=:Gesamtpunkte EP =:err. Punkte 
Z1-25=:Notengrenzen DN =:Durchschnittsnote 
KS/KG/KB/KA/KM/KU =:Noten im KL-Spiegel 

VAN WENIG 

Zählvariablen (FOR/NEXT):/YJYK/M/N/S/T 








































Zur Enstehung 
des Programms 
»Lehrerkalender« 


AlsLehreraneiner Hauptschule in Bielefeld unterrichte 
ich unter anderem auch das Fach »Technik«. Durch die 
Diskussion um die Möglichkeiten und/oder Gefahren der 
»EDV« angeregt, habe ich mir zunächst durch Fachzeit- 
schriften ein grobes Grundwissen auf diesem Gebiet an- 
geeignet. 4 

Dabei kam ich zu der Überzeugung, daß das Arbeiten 
mit Computern auch an die Hauptschule gehört. Um zu 
beurteilen, in welchem Ausmaß meine Schüler den Um- 
gang mit Computern erlernen können, fehlte mir jedoch 
die eigene praktische Erfahrung 

So kaufte ich mir vor gut einem Jahr den »Sinclair ZX81«, 
um eıste Programmiererfahrungen zu sammeln. Schon 
bald erkannte ich, daß dieses Thema auch an meinem 
Schultyp durchführbar sein müßte. Ich entschloß mich, 
nach einem Computer Ausschau zu halten, dermeinenun- 
terrichtlichen Vorstellungen am nächsten kam. Meine 
Wahl fiel auf den Commodore 64, mit dem ich nun seit Äu- 
qust '83 arbeite. 

Nachdem ich zunächst die üblichen »Benzinkosten«-Pro- 
gramme geschrieben hatte, mir diese aber bald ziemlich 
überflüssig vorkamen und ich andererseits meine Pro- 
grammierfortschritte überprüfen wollte, ging ich dazu 
über, nach Arbeiten zu suchen, die mir der Computer er- 
leichtern konnte. Eines dieser Programme istder»Elektro- 
nische Lehrerkalender«. 

Wenn ich jetzt eine Arbeit korrigiert habe, gebe ich nur 
noch Gesamtpunktzahl, Namen und die erreichte Punkt- 
zahl ein. Der Computer gibt dann die entsprechende No- 
te, den Durchschnitt aller bisher geschriebenen Arbeiten 
und auf Wunsch den jeweiligen Klassenspiegel aus. 
Selbstverständlich lassen sich diese Daten auch aus- 
drucken. 

Der »Elektronische Lehrerkalendert« ist mir somit eine 
echte Hilfe bei der täglichen Arbeit.(Dirk Schwerdfeger) 


Lehrerkalender 





Bild 2. Die Klassenübersicht enthält neben den Schülernamen auch die 
Ergebnisse der letzten sechs Klassenarbeiten 
sowie den Notendurchschnitt jedes Schülers 
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REM zn x ur HH HH HR 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM VERS.:1B9/83/1. 
REM 03/84/2. 
; REM KFRRHRHEHEEEEHEEREHEREHFERERRH 

REM ***TITELBEILD**#* 
FOKESS288,2:FOKESS281 ,2:PRINT"g" 
FRINT"IIIEIIPPEDEPPBBERBERPELEKTRONIS 

CHER" 

320 PRINT"LIRERBRERRPRRBRL EHRERKALENDER" 

T38 FORI=-BTO29BB:NEXTI 

428 FOKEST289,11:POKESS2Z81,11:PRINT"B" 

489 REM ***SFEICHER FUER LISTE FREIMACHE 

N##* 

458 DIMAF(TZ&) :DIMA(ZA,T) 

4359 REM ###+HAUFTMENU**# 

s@2@2 FRINT'LITCEREBBRPBRMENU" 

S12 FRINT"IBBRBRRFRIII" LISTE SCHREIBEN 

522 FRINT"IERPRRRABIIDE 

EBEN" 

5358 FRINT"IEBPREREPLITT 

GEN" 

542 FRINT"LEBREBRRRPINGe 

SSB FRINT"IERBPPRFBLIS" 

555 FRINT"IRRERREBRINGE 

EN" 

S56&B FRINT"IRERERPERLIT" DRUCKEN" 

5655 PRINT"IERBRRREPEINGE BEENDEN" 

572 PRINT"IIDBRRRPLIÜ** BITTE ZIFFER WAE 

HLEN m" 


ELEKTR. 
LEHRERKALENDER 


DIRK SCHWERDFEGER 
HEITLANDSTR. 28 
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Listing vom 
»Lehrerkalender« 


UEBERSICHT AUSG 


BENOTUNG FESTLE 


KLASSENSFIEGEL" 
LISTE ERWEITERN 


ARBEITEN LOESCH 
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Lehrerkalender 


608 GETZE: IFZ$=""THEN6DD 
618 IFASC(Z$)<A9ORASC (ZF) >S6THENGROD 
628 Z=VAL(Z#):ONZGOTO1009,1900,3220,4200 
‚5DDR , 4009, 7000, 100908 
9997 REM ***LISTE SCHREIBENK** 
1088 IFX2=1THENS@B:REM *UEBERSCHREIBSCHU 
TZ* 
1005 FRINT"LLPPEBERPBKLASSENLISTE SCHREI 
BEN" 
1Bi® FRINT"LBITTE NACH JEDER EINGABE":PR 
INT"RETURN’ DRUECKEN." 
1820 INFUT"KLASSE "sKL$ 
1052 INPUT"FACH "sFA$ 
1842 INFUT"HALBJ-BEGINN : ";S5J$# 
1068 PRINT"KFACH: ";FA$,"KLASSE: ";KL$ 
1878 FRINT"HALBJ-BEGINN: ";5J$ 
1082 FPRINT"LELBITTE JETZT NAMEN EINGEBEN 
„DIE NICHT " 
1898 PRINT"LAENGER ALS 1® ZEICHEN SIND." 
{| 10895 PRINT"BEISFPIEL: SCHWERDF.D" 
1188 FRINT"LLUM DIE LISTE ZU SCHLIESSEN, 
ALS LETZTEN" 
1118 PRINT"NAMEN °*° 
1120 N=N+1 
113@ INFUT"NAME "zA$(N) 
1135 REM **NAMENSLAENGE FRUEFEN** 
1148 IFLEN(A$(N) J>1BTHENFRINT"ZUVIELE ZE 
ICHEN! ":60T01138 
1158 IFA&(N)="*"ORN>SSTHENGOTO1170 
1151 REM #NAMEN$ AUF 18 ZEICHEN BRINGEN* 
1152 Li=LEN(A$(N)): IFLi=1QTHEN1168 
1154 L2=18-L1:FORJ=1TOL2:A$(N)=AF(N)+" " 
:NEXTJ 
1140 GOTO112®8 
1178 PRINT"LERBR ISTE GESCHLOSSENLIBARSENI 
IBBBRBHBEELÖZURUECK MIT EINER TASTE":Y=1 
1180 GETZ$: IFZ$=""THEN1188 
1198 IFZ$<>""THENX2=1:G60T0528 
1899 REM #**UEBERSICHT AUSGEBEN#*#** 
1988 IFY=BTHENGOSUB15922: X2=1 
2808 PRINT"LKLASSE: ";KLE$,, "FACH: ";FAF 
2015 PRINT"HALBJ-BEGINN: ";5J$ 
2028 FORI=1T018 
DA3DHRRINTS nme ee Tee manteenehn 
= FE 
2848 PRINT" I | | I I 

I I nz 
2058 NEXTI:S=1:T=1® 
2852 FRINT"N":FORI=STOT 
29055 IFI=NORI>SSTHEN2998 
20640 GOSUB16022 
2069 FRINT"W"; 
2878 PRINTA$(I) 
2871 PRINTTAB(11)"D"A(I,1) 
2072 PRINTTAB (15) "D"A(I,2) 
2073 PRINTTAB (19) "D"A(1,3) 
2874 FRINTTAB (23) "D"A(1,4) 
2975 PRINTTAB (27) "D"A(1,5) 
2876 PRINTTAB (31) "D"A(I,6) 
2877 PRINTTAB (35) "IQ Igagt" 
2978 IFA(I,7)=INT(A(1,7)) THENPFRINTTAB (35 
)"D"A(I,7):REM *ZEILENAUSGLEICH* 
2079 IFA(I,7)<>INT(ACI,7)) THENPRINTTAB (3 
S)"D"ACI,7)s;:REM *ZEILENAUSGLEICH* 
2088 NEXTI: IFS>1THEN2198® 
2899 FRINT" 
TER MIT °1’/ ZURUECK MIT ’2’" 
2100 GETZ$: IFZ£=""THEN2190 
2110 IFASC (Z$)<490RASC (Z$) >SOTHEN2108 
2128 IFZ$="1"THENS=S+18: T=T+10:60T02052 


EINGEBEN. " 


Listing vom 
»Lehrerkalender« 
(Fortsetzung) 


nn Fin 


2138 IFZ£="2"THENSQD 

2999 REM ***NDOTENVERTEILUNG**#* 

ZD80 IFY=BTHENGOSUB1SBRU: X2=1 

3325 PRINT"(IELRRPRRPRLNOTENVERTEILUNGE" 

3@1@ INPUT"IRBERBERBEBARBEIT NR.: ";T 

3028 INPUT"LERBBIGESAMTFUNKTZAHL: ";GP 

3025 REM ***VERT. BERECHNEN##*#* 

3038 PRINT"WSSTANDARDVERTEILUNG: =" 

3@0408 Zi=INT(GP*.98+.5):Z2=INT (G6P*.85+.5) 

: Z3=INT (G6F*. 7+.5) :Z4=INT (G6P#.5+.5) 

3058 Z5=INT (6P*.25+.5) 

30658 PRINT"LEISEHR GUT: "GF"—"Z1 

3078 FRINT"IB] GUT2"zZ1=-1"-"7Z2 

3888 FRINT"WEBEFRIED.:"Z2-1"-"Z53 

390928 PRINT"ERAUSRREI.:"Z3-1"-"74 

3122 PRINT"LEMANGELH. =: "Z4-1"-"Z5 

311® PRINT"LBUNGENUE.: "Z5-1"- 9" 

3128 PRINT"LLIMOECHTEN SIE EINE ANDERE WE 

RTUNG? (J/N) m" 

3138 GETZSE: IFZ#=""THEN31S3B 

3148 IFZ#="N"THENPRINT"DIDIESE WERTUNG W 

ERDE ICH ANWENDEN m": G0OT03145 

3142 GOTOS3158 

3145 FORI=BTOSQQR: NEXT: GOTOZZLQO 

3158 IFZ£="J"THENS17® 

3168 GOTO31382 

3165 REM *%**#EIGENWERTUNG EINGEBEN#*#** 

3172 FRINT"SLIELLRIEiiPpppppPRPEPRPPRRPRPI| 

IBEEIGENWERTUNG: ES" 

3188 PRINT"IBBPRRPRRRRPRRRPPPRRRRERI"GF"-"; 

: INPUTZ1 

3190 FRINT"IERRBRPRPPRPRERBPRBERBI"Zi-1"- 

"s:INPUTZ2 

32082 FRINT"LERRERPPPPPPPPRPRRERERI'Z2-1"- 

"s:1NPUTZS 

3212 FRINT"IRBRRRRPRRERPPRPRRRBRRBBI"235-1"- 

"=: INPUTZ4 

3220 FRINT"IPRRBPPRRRPPRRBPPRBBEBBI"74-1"- 

"=: INPUTZS 

323@ FRINT"LERRPPPPERPPRPPEPPRRBBI"ZS-1"- 
Q" 

3248 FRINT"WRIHRE WERTUNG WERDE ICH ANWE 

NDEN m" 

3258 FORI=BTOIQBAR: NEXT 

3299 REM ***NOTEN BERECHNUNG*** 

33588 PRINT"KIBBARBEIT NR.2";T 

3318 PRINT"LRBBIGES-FUNKTE :";G6P 

33528 PRINT"LEBBRRNAME:IBBRERR.FUNKTE:ERBI 

BRBNOTE:" 

3348 FRINT 

3358 K=K+1:INPUTB£: IFB$="*"ORK=NTHENSQB 

3568 INPUT"TERPRREPERPRRERRRBBI";EF 

3378 IFEF>=Z1THENEN=1 

3388 IFEP>=Z2ANDEF<ZITHENEN=2 

3398 IFEF>=ZZANDEF<Z2THENEN=3 

3408 IFEF>=Z4ANDEF<ZITHENEN=4 

3418 IFEF>=ZSANDEP<Z4THENEN=S 

3428 IFEF<ZSTHENEN=& 

3499 REM ***NAMEN-SUCH-ROUTINE#** 

3582 FORJ=1TON 

3518 IFLEN (BF) =4THEN3SSB 

3511 Li1=LEN(B#) : IFL1=18THENS3S2QO 

3512 L2=18-L1:FORO=1TOL?2: B#=B$+" ":NEXTO 

352808 IFB£=A$ (J) THENM=J:A(M,T)=EN: J=N:GOT 

03558 

3538 IFLEFTF(AF(J) „A)=BFTHENM=J:A(M,T)=E 

N: J=N: G0T0O3552 

3548 IFJ=N THENFRINT"TRRRRRRRRRRBNICHT G 

EFUNDEN "eXY=1 

3558 NEXTJ 

3555 IFXY=1THENS618 





nu RE EA 


3568 PRINT"TRRRPRRPPPPPRPPPPRPPPPPPERPRB| 

KRRBBI"ACM,T) 

3610 XY=D:60T03350 

3999 REM *%**KLASSENSPIEGEL*** 

4008 IFY=BTHENGOSUB1S@BR: X2=1 

48085 FRINT"ILLPRRPPPPPPBPPBLKLASSENSPIEG 

ELm" 

4018 PRINT"LEBIDEN KLASSENSPIEGEL WELCHER 
ARBEIT " 

4020 PRINT"LEBMOLLEN SIE SEHEN? WI-6)M" 

4030 GETZ$: IFZ$=""THEN40SQ 

4840 IFASC (Z$) <490RASC (Z$) >S4THEN4038 
4050 Z=VAL(Z$) 

4218 PRINT"LLLEPRPPPPPPPPPPPRPI"Z"II.ARBEI 

T " 

4250 PRINT"EBBBPRBEII |II |IIIIIV N WI 


4260 PRINT"IBBRBRREITT TO T T 1 


4278 FRINT"IBRRRRPPP| PRB| Rep| BRRI kRBI | 

4288 J=2Z:GDSUB17982 

4299 REM **VERTEILUNG AUSGEBEN** 

4388 PRINT"D"TAB(5)KS 

4318 PRINT"D"TAB(1B)KG 

4328 PRINT"D"TAB(14)KB 

4338 PRINT"D"TAB(18)KA 

4348 PRINT"N"TAB (22)KM 

4358 FRINT"D"TAB (26) KU 

44088 FRINT"LLLERBEWEITER MIT’1'°/ ZURUECK 
MIT2'm" 

4418 GETX$: IFX#=""THEN4418 

4428 IFASC(XF)<490RASC (XF) >SBOTHEN4410 
4438 IFX#="2"THENS®® 

4448 IFX#="1"THEN4298 

4999 REM **+LISTE ERWEITERN*#** 

SQRBd IFY=BTHENGOSUB1SRHB: X2=1 

S5@1® PRINT"KFACH: ";FAF,"KLASSE: ";KL# 
5928 FRINT"HALBJ-BEGINN: ";SJ# 

S5a38B FRINT"LLINBITTE JETZT NEUE NAMEN EIN 
GEBEN." 

5948 FPRINT"W(MAX. LAENGE : 18 ZEICHEN?" 
sa5B FRINT"W °*° SCHLIESST DIE LISTE." 
Sad N=N-i 

59780 N=N+1 

SD8B INFUT"NAME"ZAF(N) 

SDOIB IFLEN(AF(N)) >IBTHENFRINT"ZUVIELE ZE 
ICHEN! ": GOT0O5288 

5182 IFA$(N)="#"THENS1S® 

511® Li=LEN(AF(N)): IFL1=1BTHENS140 

5128 L2=18-L1:FORJ=1TOL2:A&(N)=SAF(N)+" " 
:NEXTJ 

5148 GOTO5972 

5158 PRINT"BERLISTE GESCHLOSSENDIEBHBBEI 

IRESBHBBERLIZURUECK MIT EINER TASTE": Y=1 
516408 GETZE: IFZ£=""THENS18B 

5178 GOTOS2® 

5999 REM **#ARBEITEN LOESCHEN##** 

KaADD IFY=BTHENGOSUB1S52DB:X2=1 

&21® FRINT"LWELCHE ARBEIT SOLL GELOESCHT 
WERDEN?" 

&828 FRINT: INPUT" (1-6) m ";W 

&032 PRINT"ERELELEBBIRIm EINZELNE ARBEITEN" 
6835 PRINT"EINDE ALLE ARBEITEN DER NR. 
s ":W 

684Q PRINT"LEBIAZ=E ZURUECK INS MENU" 
059 GETZF: IFZ#=""THENSBSO 

6049 IFASC(Z#)<A49IORASC (ZE) >S1 THENADSDO 

6078 Z=VAL(Z#) :ONZGOTO4100,4598,500 

6299 REM *#**SCHUELERA. LOESCHEN### 

6108 FRINT"LBITTE NAMEN DES SCHUELERS EI 





EHRE TARR 
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NGEBEN," 
6118 PRINT"LWDESSEN ARBEIT GELOESCHT WERD 
EN SOLL." 
PRINT"LELREI": INPUT"NAME";B$ 
FORJ=1iTON 
IFLEN (Bf) =4THENS188 
L1=LEN(B$) : IFL1=18THEN617B 
L2=18-1L1:FORO=1TOL2:B#=B£+" ":NEXTO 
IFB£=A$F(J) THENM=J:A(M,W) =8:60T081978 
IFLEFT$E(AF(J) „4)=BETHENM=J:A(M,W)=Q 
NEXTJI 
PRINT"LEIDIE ARBEIT VON "A#(M) 
PRINT"LMURDE GELOESCHT. ":FORU=BTOI? 
9: NEXTU: GOTOSB® 
6499 REM **#ARB.-NR.X LOESCHEN*#* 
6588 PRINT"KDIE ARBEIT NR.:"W" WIRD GELO 
ESCHT."“ 
FORI=1iTON 
A(I,W)=B 
NEXTI 
FORU=1T0598: NEXTU 
G0TOS22 
REM ***AUSDRUCK*** 
IFY=BTHENGOSUB15028: X2=1 
PRINT"LILELLELDIE KLASSENLISTE DER"KL 
£"WIRD" 
7828 PRINT"LNUN AUSGEDRUCKT." 
79838 PRINT"LLIN IST DER DRUCKER BEREIT ? 
m(J/N)" 
79848 GETOF: IFQr=""THEN7948 
7258 IF@8<>"J"THENSOB 
7858 FRINT"D BITTE ETWAS GEDULD. 


Listing vom »Lehrerkalender« 
(Fortsetzung) 


7065 REM ***DRUCK-ROUTINE*** 
7870 OPEN4,4,8 

70875 PRINT#4, "KLASSE: "KL$, "FACH: "FA$ 
7877 FRINT#4, "HALBJ-BEGINN: "SJ$ 

7020: FRINTAM nette en 
eat 

7298 FORI=1TON-1:G60SUB16008 

7108 PRINT#4,A$(I)" A(I,1)" ACI,DI" "A 
(1,3)" PALI,A)" MALI,SI" WACI,E)" ACI,7 
) 

7118 NEXTI 

7122 PRINT#4," Wesen 

J J l n 

7288 CLOSE4 

7582 PRINT"LSOLLEN DIE KLASSENSPIEGEL AU 
CH " 

7688 PRINT"KWAUSGEDRUCKT WERDEN ? (J/N)" 
7618 GETOS: IFO$=""THEN7&10 

7628 IFQ$="N"THENSQ® 

7628 IFO$="J"THEN7738 

7640 GOT07618 

7798 PRINT"ILLLLELENUN WERDEN DIE KLASSENS 
PIEGEL" 

7718 PRINT"WAUSGEDRUCKT.":F=6 

7808 OPEN4,4 

7885 PRINT#4,"KLASSENSPIEGEL" 

7818 FORJ=1T0OF:GOSUB17288 

7828 IFKS=BANDKG=BANDKB=BANDKA=BANDKM=BA 
NDKU=®THENF=J: GOTO7898 - 

7838 PRINT#4,J". ARBEIT" 

7840 FRINT#4,"IBRBBBII I II | IIII IV I 
V IVI u 

7858 PRINT#4 , "ERBea7 — 7 — 7 —T———T 
— re — 

78648 FRINT#4,KS; TAB(2)KG; TAB(Z2)KB; TAB (2) 
KA; TAB (2) KM; TAB (2) KU 

7898 NEXTJ 

7980 CLOSE4:60T0598 
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9999 REM ***BEENDEN«#* 
12008 FRINT"KILLBBEVOR DAS PROGRAMM ENDE 
T,MUESSEN" 
10081® FRINT"LBIZUNAECHST ALLE DATEN ABGES 
PEICHERT" 

100828 PRINT"LRWERDEN. " 

10030 FRINT"LEERPPIRI= AUF KASSETTE SPEIC 
HERN" 

10840 FRINT"LRRBIIZM AUF DISKETTE SPEICHE 
RN" 

108845 PRINT"LLLLERBRLHBITTE ZIFFER WAEHL 
EN" 

10858 GETZ$: IFZ$=""THEN10058 

10060 IFASC (ZF) <490RASC (Z$) >SOTHEN100SO 

10972 Z=VAL (Z$) :ONZGOTO12100,1100 

10999 REM ***DATA-SAVE / TAPEx#** 

10100 FRINT"LLLBIBITTE KASSETTE AUF FREIE 
N " 

1011® PRINT"LESPEICHERPLATZ VORSFULEN. " 

| 18120 FRINT"LLLBHABEN SIE DAS BAND FOSIT 

IONIERT? (J/N)" 

18130 GETZ$: IFZ$=""THEN10138 

12140 IFZ$="J"THEN10208 

10150 IFZ$="N"THEN10108 

10160 IFZ$<>"J"ANDZS<>"N"THEN1Q13D 

10222 FRINT"ILRIDIE DATEN WERDEN NUN GESP 

EICHERT." 

10218 FRINT"LRETWAS GEDULD BITTE. ":FI$=K 

L$+FA$ 

10228 OFEN1.1.1.FI$ 

10238 PRINT#1,KLF 

10248 FRINT#1,FAF 

1025@ PRINT#1,SJF 

10268 FORI=1TON 

10278 PRINT#1,A$(I) 

10280 NEXTI 

10298 FORI=1TON 

10382 FORJ=1T06 

123190 PRINT#1,A(1,J) 

10322 NEXTJ 

10338 NEXTI 

108415 PRINT#1,Y 

10428 CLOSE1:60T012988 

10999 REM ***DATA-SAVE / DISKx#** 

11000 PRINT"ILBIDIE DATEN WERDEN NUN GESP 

EICHERT." 

11012 PRINT"LBETWAS GEDULD BITTE. ":FI$=" 

8: "+KLS+FAS+" „S,W" 

11828 OFEN2,8,2,FI$ 

119838 FRINT#2,KL$ 

11848 FRINT#2,FA$ 

11059 PRINT#2,SJ$ 

1106® FORI=1TON 

11978 FRINT#2,A$(I) 

11092 NEXTI 

11290 FORI=1TON 

11108 FORJ=1T06 

1111® FRINT#2,A(I,J) 

1112@0 NEXTJ 

1113@ NEXTI 

11215 PRINT#2,Y 

11228 CLOSE2:G0TO1208® 

11999 REM ***SCHLUSSBILD*** 

12028 PRINT"KIEPEIEERRTN" 

12018 FRINT"IRRRRRRPERRBBBRITSCHUESS! " 
1202® FRINT"LILLLLUOPRRPPRPPRPRREEIIHR BO 
ZLD VON SCHWERFG":END 

14999 REM ***DATEN LADEN#*#** 

15008 FRINT"IIUM DAS PROGRAMM BEARBEITEN 
ZU KOENNEN," 

1581® PRINT"LMUESSEN ZUVOR DIE DATEN EIN 





nn in 


GELESEN" 

15022 FRINT"RWWERDEN. " 

15822 INFUT"EKLASSE: ";KL$ 

15924 INFUT"RFACH : ";FA$ 

15026 FI£=KLF+FAF 

15050 PRINT"ERILEIpRpPp aim VON KASSETTE" 
15948 FRINT"LIRPBI a2m VON DISKETTE" 
15952 FRINT"IEELERPPRBPLBITTE ZIFFER WA 
EHLEN#E" 

15858 GETZ#: IFZ$=""THEN15988 

159878 IFASC (ZF)<490RASC (Z#) >SBTHEN1SB&0 
15875 FRINT"LIERLEEDIE DATEN WERDEN EING 
ELESEN. 

15877 FRINT"LELLBITTE ETWAS GEDULD. " 
15088 Z=VAL (Z#) :ONZGOTO15298, 15608 
159997 REM #**DATA-LOAD / TAPE#x*%* 

15208 OFEN1,1,8,FI# 

15218 INFUT#1,KL# 

15228 INPUT#1,FA#F 

15230 INFUT#1,SJ+ 

15248 N=N+1 

15259 INPUT#1,AFz:AF(N)=AF 

15268 IFAF(N)="#"THEN15288 

15272 GOTO15242 

15288 FORI=1TON 

15298 FORJ=1T05 

153908 INFUT#1,A(I,J) 

15518 NEXTJ:NEXTI 


15488 INPUT#1,Y 
15418 CLOSE1 

15508 RETURN 

15599 REM ***DATA-LOAD / DISK#** 
15688 FI$=FI$+",S,R": OPEN2,8,2,FI# 


15618 INFUT#2,KLF 

15828 INPUT#2,FAF 

156308 INFUT#2,5J* 

15640 N=N+1 

15658 INFUT#2,AF:A$(N)=SAF 

1566498 IFAF(N)="#"THEN1568B 

15672 GOTO15648 

15682 FORI=1TON 

15698 FORJ=1T06 

15722 INFUT#2,A(I,J) Listing vom »Lehrerkalender« 
15718 NEXTJI=:NEXTI (Schluß) 
158088 INFUT#2,Y 

15812 CLOSE2 

159788 RETURN 

15999 REM ***DURCHSCHNITT BERECHNEN#%*# 
15000 DN=B:AZ=B 

158810 FORJ=1T0& 

16828 DN=DN+A(I,J) 

16038 IFA(I,„J)=BTHEN16052 

16040 AZ=AZ+1 

18859 IFJ=5ANDAZ=DTHENAZ=1:REM *#*DIV.DUR 
CH B VERHINDERN** 

169058 NEXTJI 

158872 A(I,7)=INT(C(DN/AZ)#18+.5)/10 
1&B88 RETURN 

16999 REM #**KL.-SPIEGEL BERECHNEN#** 
17208 KS=B:K6G=B: KB=B: KA=B: KM=Q: KU=O 
17818 FORI=1TON 

179028 IFA(I,J)=1THENKS=KS+1 

170382 IFA(I,J)=ZTHENKG=-KG+1 

17042 IFACI,„J)=STHENKB=KB+1 

17852 IFACI,„J)=4THENKA=KA+1 

17958 IFA(I,J)=STHENKM=KM+1 

17272 IFACI,„,JI=ÖSTHENKU=SKU+1 

17288 NEXTI 

17892 RETURN 


READY. 





Anermhe A/lınt 19R4 


664 


N:: dem Programmstart 
erscheintzunächst dasTi- 
telbild, dann die Frage: »Vo- 
kabeln von Kassette (j/n)?«. 
Wird die Frage mit »j« beant- 
wortet, kann man ein Voka- 
belfille von Kassette laden 
(sofern bereits eines vorhan- 
den ist). Bei »n« springt das 
Programm zur Routine »Vo- 
kabeln eingeben«. Hier 
kann man jeweils eine Voka- 
bel und die drei Bedeutun- 
gen der Vokabeln einge- 
ben. Anschließend gelangt 
man zum Menü (Bild |). 


Das Menü 


Hier kann man wählen 
zwischen: 
j (Abhören starten) 
c (Vokabeln verbessern) 
l (Neue Vokabeln) 
s (Vokabeln speichern) 


Abhören 
Oben links erscheint die 
Vokabel, deren Bedeutun- 
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Leichter lernen 


gen man eine Zeile darunter 
eingeben kann (Bild 2). Eine 
eventuell falsch eingegebe- 
ne Bedeutung kann durch 
»Home« wieder gelöscht 
werden. 


Nach »Return« überprüft 
das Programm die Äntwort 
aufihre Richtigkeit und zeigt 
das Ergebnis an. 

Bei falschem Ergebnis 
werden alle richtigen Be- 
deutungen angezeigt. 

Nachdem alle Vokabeln 
einmal an der Reihe waren, 
erscheint die Bewertung 
und eventuell erfolgt ein 
Sprung zur nächsten Runde 
(bei weniger als zwei Feh- 
lern). 


Verbessern 

Mit der Taste n kann man 
aus dem Vokabelspeicher 
eine Vokabel auswählen und 


dann mit der Taste c dem 


Computer mitteilen, daß 
man sie verbessern möchte. 
Danach erscheint zu- 


nächst die Vokabel, dann 
die Bedeutungen. Jetzt kann 
man bei Bedarf eine Form 
neu eingeben. Nach der 50. 
Vokabel erfolgt automatisch 
ein Sprung zum Menü. 


Laden und Speichern 

Das Laden und Speichern 
von Vokabeln ist auf den Be- 
trieb mit dem Kassettenlauf- 
werk abgestimmt. Durch An- 
dern der Geräteadresse bei 
den entsprechenden OPEN- 
Statements ist aber auch das 


Vokahel lernen 









Arbeiten mit Floppy-Lauf- 
werken möglich. Eine Be1 
sonderheit des Programms 
ist die Tatsache, daß inner 
halb einer Runde keine Vo 
kabel doppelt erscheint! 


Schneller lernen 


Dennoch werden die Vo- 
kabeln durcheinander ab- 
gefragt, und die maximale 
Zugriffszeit für eine Vokabel 
beträgt bei vollem Speicher 
nur 0,1 Sekunden. 


(Michael Schmidt) 


sr3ei7:69 





1BD REM HH H Hua HRHHHEHRH EHER 
118 REM * MICHAEL SCHMIDT * 1984 MSC.* 
1i28REM* BADISCHE 6 4 E-RF 
139 REM * MSC - 
* COMMODORE &64* 


140 REM + SUPERVOC. 

15B REM KRHHHEHHEEEHEH EEE EEH FH 
188 : 

170 : 


168 GOSUB2849: FOKE198,0:WAIT198,1 
190 FOKE32768,9&6:FOKE6SQ, 254 

2088 DIMV# (58,4) :FF=17532:FR=1727:5Y=1 
218 FRINT"L":PFRINT:PRINT:PRINT 


22@ FRINT" WVOKABELN VON KASSETTE ( J / 
N ya“ 

228 GETAF: IFAF="J" THENGOSUB1320: GOSUB157 
0:G60T0758 

248 IFAF="N" THENGOSUB1638: GOSUB1570:G0OTO 
758 


2528 GOTO2S38 

268 GOSUB1B6R 

278 N=N(RND(TI)*9) :R=B:F=8:FR=1727:FF=17 
32 

288 M=® 

290 Z=Z+1:M=M+N: IFM>SQ@THENM=M-SBD 

388 IFM=NTHENM1=M1+1: IFMI=ZTHENM1=B: Z=B: 
6070728 

3198 FOKE214,2:PRINT:FRINTTAB(4)"G 


328 FOKE214,1:FRINT:FRINTTAB (54) Z 
3358 IFV£(M,1)="*"THEN29O 

3498 IFSX=1THENSY=INT (RND(TI)#2+1) 
358 FOKE214,7:FRINT:FRINTTAB (4) " 


36B FOKEZ14,2:FRINT=:FRINTTAR(A)VE(M,SY); 
378 FOKE214,7:PRINT:B$="" 

388 FORI=1T015 

398 FOKE198,8:WAIT198,1:GETA$ 

408 IFAF="S"THENFOKE214,7:FRINT:FRINTTAB 
(4) " D":B£="":60T05388 

418 IFASC(AF)=1STHENA45B 

420 IFAF="y"DRAF="L"ORAF="FFORAF="N"ORAF 
="D"ORAF="H"ORAF="II"THEN3IQ 

438 PRINTTAB(4)A$; 

440 Bt=Bf+At 

45B NEXT 

4608 IFSY=2THEN498 

470 FORJ=ZT04: IFV$(M,J)< >BFORBF="" THENNE 
XT:G0T0S1® 

4808 GOTDs30 

498 IFV£(M,1)=BFTHEN&SO 

sa8 GOTOS12 

Sıa FZ=FZ+1 

s2@ FOKE214,12:PRINT:FRINTTAB(7)"Q FALSC 
H+ " ° 

532 FORJ=1T0255:NEXT:FOKE214,12:FRINT:FR 
INTTAB(7)"® FALSCH* " 

542 FRINT"g" 

55a F=F+1: IFF>STHENF=1: PF=PF-48 

568 FORI=SFFTOFF+2:FOKEI,F(F) :FPOKES4272+1 
‚„B:NEXT 

578 FOKE214,28:PRINT"g":MM=® 

5s8@D FORI=3STOS:FRINT" : "3:FORJ=1TOLEN (V$ 
(M,I-SY)) 

S7n MM=MM+1 

sad FRINTMIDE(V£(M,I-SY) ,J,1); 

812 FORK=1TO1BB:NEXT:NEXT:NEXT 

628 FORI=MMTOZ1:FRINT" "32NEXT:FRINT:GOT 
0278 

6308 RZ=RZ+1 


5848 FOKE214,12:FRINT:FRINTTAB(7) "3 RICHT 
165% 

658 FORK=1T0255: NEXT: FOKEZ214,12:FRINT:FR 
INTTAB(7)"E RICHTIG " 

658 FRINT"g" 

6878 R=R+1: IFR>STHENR=1: FR=FR-48 

680 FORI=FRTOFR+2:FOKEI,R(R) :FOKES4272+1 
‚B:NEXT 

698 FOKE2Z14,28:FRINT:FRINT" 


5 
’ 


788 FRINT"G 

":60T0292 

718 G0T0298 

728 FRINT"G" 

730 IFFZ<ZTHENS2O 

7408 GOSUES7® 

758 RZ=B:FZ=8 

760 GOSUB1940 

778 GETA£: IFA="Y"THENGOSUS1252: GOTO272 
788 IFA£="S"THENGOSUB1 438: 60T0758 

798 IFA$="C"THENSOSUE1770:G0T0758 

888 IFA+="L"THENRUNZOD 

818 50OT0778 

829 IFSY=ZANDSZ=BTHENSZ=1:GDOSURY79:SX=1: 
GOT07S8 

850. IF SZ=1THEN121® 

840 GOSUBFTO 

852 SY=2 

860 GCOTD7EB 

8782 FRINT"LAKEEN"SFRINT" VON "FZ+RZ" HABEN 
SIELR!" 

8838 FRINTTAB(12)RZ"RICHTIG 
898 FRINTTAB(1B)FZ"FALSCH [igN" 
988 FRINT"ICH SCHLAGE IHNEN VOR DIE VOKA 
BELNIE" 

F1B8 FRINT"NOCH EINMAL ZU WIEDERHOLEN" 
928 FORI=1784T02023:FOKEI,168: FPFOKES4272+ 
1,14:FORJ=1T0182:NEXT:NEXT:RETURN 

938 FRINT"LIETEN EBRAVOD!IN":PRINT"SIE HABE 
N VON"FZ+RZ"VOKABELNIE" 

54B FRINTTAB(I1B?RZ" GEWUSSTEERN" 

958 FRINT"ICH HORE SIE JETZT UMGEKEHRT A 
RB" 

968 FORI=1984T02023: FOHEI, 162: FOKES4272+ 
I1,14:FORJ=1T0128:NEXT:NEXT: RETURN 

972 FRINT"IAEN DRITTE RUNDELEE!" 

788 FRINTRZ" RICHTIGE "FZ" FALSCHE je" 

772 FRINT"UND JETZT GEHT'S DURCHEINANDER 
1822 FORI=1984T0202T:FOKEI,1$&9:FOKES4272 

+1,14: FORJ=1T018B: NEXT:NEXT: RETURN 

1810 FRINT"LAHTESO, DAS DUERFTE GENUESEN! 

Ban" 

1328 FRINT"WIEDERHOLEN SIE DIESE VOKABEL 

N {p" 

1852 FRINT"IN CA 3-4 WOCHENLIEN" 

1848 PRINTNE" VERABSCHIEDET SICH ! 

1858 FORI=1T049888: NEXT: RUN 

1088 FRINT"L" 

1072 FORI=1T02 








UND" 


IBBBEERINT ze 
1098 FORJ=1T03 

1108 PRINT" | pe 
111® NEXT 

1120) PRINT | Nein 


1128 NEXT 
1148 FRINT=:FRINTTAB (6) " zum, '' 


1158 FRINTTAB(8) "1 
11&B FRINTTABLSI" mh 








1178 FOKE214,21:PRINT:FRINT" 





11808 PRINT" KUH HHuHHH HEHE 

WEREHERKHE" 

119@ FOKE214,1:PRINT 

1288 FORI=1T016:FRINTTAB (22) "gm ıa= 
E " 

1218 NEXT 

1228 PRINTTAB (21) "I ----------- " 

1238 PRINTTAB(26-LEN (N$) /2)"W ";=:FORI=1T 

O18:PRINTMID$(N$,I,1);:NEXT=:PRINT"I " 

1248 POKE214,2:FPRINT 

1258 FORI=1T07:PRINTTAB(Z4)RE (I); TAB(29) 

F#(I)=PRINT=:NEXT 

1258 POKE214,5:FRINT 

1278 PRINTTAB(S33)"W3 NOTE " 

1288 FRINT:PRINTTAB (33) " — 

1297998 FORI=1T03:PRINTTAB(33)"] 

1388 FPRINTTAB (33) Y" —— 

1318 RETURN 

15328 PRINT"ILILPPPPPPPPI"; :POKES2768,76 

1358 OPEN1,1,8,"VOKABELN" 

1348 INPUT#1,N®E 

1358 FORI=1T058 

1368 INFUT#1,V£(I,1) 

137@ INPUT#1,V$(1,2) 

1588 INFUT#1,V$(I1,5) 

1398 INPUT#1,V#(I,4) 

14088 FRINTI:NEXT 

1418 CLOSE1 

1428 RETURN 


I":2NEXT 


1430 SYS32768: PRINT"W" 

1440 INPUT"NAME DES PROGRAMMS 
_IBNERRNERRBRBI"; NE: PRINT 

1458 N$=LEFT$(NF, 10) 

1460 PRINT"LLPRPRPPPILU "N$" dig" 

1478 OPEN1,1,1,"VOKABELN" 

1488 PRINT#1,N$ 

1490 FORI=1T050 

1508 FRINT#1,V$(I,1) 

151@ PRINT#1,V$(1,2) 

1528 PRINT#1,V$(1,3) 

1530 PRINT#1,V$(I,4) 

1548 NEXT 

1550 CLOSE1 

1560 RETURN 


1578 REM 

1588 FORI=1T07:READJI$ ,KF:R$(I)=Jf:F$(I)= 
K£:NEXT 

1598 FORI=QOTOI:READJI:N(I)=J: NEXT 

1888 FORI=1TOS:READJI:FIII)=J:NEXT 

16818 FORI=1TO3:READJI:R(I)=J: NEXT 

1628 RETURN 

1438 FORI=1T050 

164B PRINT"W" 

1858 FRINT:PRINTTAB (5) "la EINGEBEN NEUER 
VOKABELN ! "I" " 

16658 FOKE214,4:PRINT:PRINT 

1670 INPUT"VOKABEL :";V#(I,1) 

1588 IFV£(I,1)=""THENGOSUB189B: RETURN 
1698 IFLEN(V#£(I,1)) >15STHEN166B 

1728 FORJ=ZTO4 

171@ POKE214,2+3%J: PRINT 


17208 INFUT"BEDEUTUNG :"z;V#(I,J) 

1738 IFVECI,JI=""THENVECI,J)="%*" 

1748 IFLEN(V$(I,J))>15STHEN1718 

175@ NEXT:NEXT 

1768 RETURN 

1778 FORI=1T058 

1788 FRINT"K":FRINT:PRINTTAR(S) "IQ VERBES 


SERN VON VOKABELN ! "I" " 


1798 PRINT:PRINT" 
CWORRECT ) 

1828 POKE214,6:PRINT:PRINTTAB{1@)V&(I,1) 
1818 GETA$: IFA$=""THEN1818 

19828 IFAs="N"THENNEXT:RETURN 

1858 IFA$<>"C"THEN1818 

1848 POKE214,11:PRINT 

1850 FORJ=1T04:PRINTVS(I,I),: INPUT"VE "5; 
v$(1,J) 

1868 NEXT:NEXT 
1878 RETURN 
1889 RETURN 
12898 PRINT"LREIN 
EASE !" 

1908 FORK=ITOS@:FORI=1T04: VE (K,J)="#":NE 
XT:NEXT:RETURN 

1918 DATAR,F,I,A,C,L,H,S,T,C,1,H,6,* 
1928 DATAZ,7,9,13,17,19,21,47,41,3 

1958 DATA121,248,160,121,248,16@ 

19748 FPRINT"ARLIN" 

1950 PRINT" PRESS — m——— 
EIER. 

19768 FORI=1T012 

1978 PRINT" | u 

i 

1980 NEXT 
1998 PRINT" 
——) 
2002 FOKE214,5:FRINT 

2@1B8 FRINTTAB(B)"Y"TABC1Z)"TO START" 
2828 PRINTTAB (8) "KIC"TAB(13)"TO CORRECT" 
2030 FRINTTAB (8) "LES"TAB(13)"TO SAVE THE 
WORDS" 

2842 PRINTTAB(B) "LIL"TABC1SI"TO LOAD IN 
NEW WORDS" 

2052 RETURN 

2Q&8 PRINT"LIRN" 

2079 V£="COPYRIGHT BY MICHAEL SCHMIDT :" 
2088 FRINTTAB(4);:FORI=1TOLEN (V$) 

2098 FRINTMID$(V$,1,1)3:FORJ=1T0182: NEXT 
:NEXT:PRINT 
2108 FORI=1T05@2: NEXT 

2110 PRINT" — 

2128 FRINT" 
2138 PRINT" mn I 


( WNEEXT OR 18 


A LITTLE MOMENT, FL 


PN 
21408 FRINT" AI u av mn 
a; 


2152 FRINT"Y Jo Iilllimtloeitielltil 
RE 

ZIEBNTERINTETIFT EL EUREN ERKENNEN 
rt w 

2178 FRINT" ! EIFEEATTESTENETINT 
SE 

2188 PRINT" N ne 1 euere En N 
u. 

2198 PRINT" 51° 

2208 FRINT" I1 BADISCHE 64 ’E 
R" 

2218 FRINT" sun 

2218 SP HC LEN TS SE pen nrennniniennneenneereenie nm ne enseh ana aitnrann taann 
ren 

2238 FRINT" I #0444444044444444904444444++ 
vor r44+ | 


22408 FRINT' mn 
zn 

2258 FRINT'"LILEPBIBRBH*# FRESS ANY KEY TO 

START ##%*" 

2268 RETURN 


READY Listing zu »Supervoc« 





em Änfänger wird die 

Möglichkeit geboten, 
durch eine Morsezeichen- 
übersicht die Morsezeichen 
zu erlernen. Später kann 
man durch den Programm- 
teil »Computer morst Zufalls- 
text« die erworbenen Kennt- 
nisse überprüfen, wobei die 
Morsegeschwindigkeit frei 
gewählt werden kann. Mit et- 
was Übung gelingt es schon 
recht bald, zumindest bei 
niedriger Morsegeschwin- 
digkeit, die meisten Zeichen 
zweifelsfrei zu identifizieren. 
Man kann den Computer 
aber auch dazu bringen, ei- 
nen eingegebenen Text in 
Morsezeichen zu überset- 
zen, was ebenfalls als Trai- 
ningsmöglichkeit genutzt 
werden kann. 

Für Profis gibt es dann im 
dritten Teil die Möglichkeit, 
selbst gemorsten Text vom 
Computerüberprüfen zu las- 
sen. Als Eingabetaste dient 
entweder »f7« oder der 
Feuerknopf beim Joystick. 

Gerade dieser Teil des 
Programms war schwierig zu 
realisieren, weil die Verar- 
beitung und Übersetzung in 
Basic viel zu langsam ist. 
Letztendlich konnte diese 
Schwierigkeit aber umgan- 
gen werden, indem die ge- 
morste Zeichenfolge nicht 
unmittelbar ausgewertet, 
sondern zunächst in einen 
freien RAM-Bereich zwi- 
schengespeichert wird. Erst 
nachdem der Morsetext zu 
Ende eingegeben ist, wird 
dieser Speicherbereich aus- 
gelesen und übersetzt. 

Alle Funktionen werden 
über ein Menü angewählt, 
wodurch das Programm 
sehr einfach zu bedienen ist. 

(Stefan Ingenhorst) 


72. Ran 






READY. 







REM Ra HH 





REM # * 
REM #* MORSETRAINER + DOLMETCHER # 
REM # C BY JENS MARTENS UND * 
REM * STEFAN INGENHORST * 
REM * * 


REM KHKHHKEHKEREREHEEEHR IHREN EHE 
REM #*##**ANDROMAT SOFTWARE#*t##*%+ 
REM #74 HE HI RHEERHHRHHHHEHEH 
GOSUBZBBBB 
10 FOKESS „2982: FOKES6 ,47:CLR: M£="":FORI=S 
42727054308: FOKEI,Q: NEXT 
ZB REM KHK HH EHE Her 
25 REM = NEUE ZEICHEN; 77-KURZ,78-LANG * 
3Q REM #3 HE ERIEHEREH EHE I HE 
49 FOKESECSFI4,FEER (564334) AND2S4:FOKEI1,FEE 
FIL)ANDZSI 
53 FORI=DTO2248: IFI=IITHENGSOSUB19222 
&B FOKE1ITZSBS+I,FEEK (SIZ48+1) : NEXT 
7® FOKE1,FEEK (1) OR4: FOKESSTT4,FEEK (56334 
IOR1 
82 FOKESTZ72, (PEEK (S5T272) AND24B)ORI12 
78 READA: IFA=-1THENI16BQ 
ıi88 FORJ=BTOT7:READEB: FOKE12289+A*3+J ,„B: NE 
XT:G0OTO9B 
118 DATA 77,2,80, 
128 DATA 78,0,9, 
128 DATA-1 
10 REM KUHN reEeer 
SB REM ** SET SOUND ## 
nn REM zer 
162 W=S54276: F0OKES4277 ,32:FOKES4278,242 
i78 FOKES4272,157:F0OKES4273,69 
188 FOKES4296,15 
198 REM ur 
208 REM *%* MORSEDATEN LESEN ## 
2OD1 REM rat 
205 DIMM£ (255 
218 READM: IFM=-1THENSBQ 
zZ2Z README:MF(M)=MF:GOTOZ1O 
DIR REEL RRRERRERENRE Listing zum »Morse- 
2971 REM ##* MENUE ** trainer« 
ZIT REM Frau 8% 
S0B FRINT"L"TAB(1SI "Ile MEN UE m" 
5282 FRINT'"TIEEIRRINI® COMFUTER MORST ZUFA 
ELSTEXT." 
>38 FRINT"ap2BI: Ze COMFUTER MORST EINGEGE 
BENEN TEXT" 





S"OSNSOUPUAUN"D 















0,24,24,90,2,® 
0,126,126,2,0,8 
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Morsetrainer 





348 FRINT"LIRPISS® COMFUTER EMFFAENGT" 
358 FRINT"ERZEIS4E MORSEZEICHEN AUFLISTEN 
362 FRINT"LERPINSeE PROGRAMM BEENDEN" 

378 INPUT"EREBBIBITTE WAEHLEN ";M: IFM<1OR 
M>STHENSZQ® 

388 ONMSOTO1292 ,20292,3022,4222,5000 

FFID REM KRHHRHHHHE EHER 

971 REM ** ZUFALLSTEXTGENERATION ## 

FF2 REM HERR HERR 

1822 FRINT"IIIERPBIBITTE GESCHWINDIGKEIT 
WAEHLEN" 

1818 INFUT"LEBICIN WORTEN FRO MINUTE) "56 
1828 M£="":FORI=1T0498:M#=M#+" ":FORJ=1TO 


SI 


19858 A=INT (685*RND (1))+34: IFM£(A)=""THENI 
28308 

19848 ME=ME+CHRF (A): NEXTI,I 

1258 FRINT:FRINT:FRINT 

18528 FORM=1T0252STEF36: FRINTMIDE (M#,M,S5&6 
)=NEXT 

1872 GSOTO2592 

1997 REM HH 

1998 REM ** EIGENER TEXT *#%# 

1799 REM KHHHHHHH Hr 


2022 FRINT"ILLLEBPITTE TEXT EINGEBEN !" 
2020 FRINT"LLRBMENN FERTIG, 'F1’ DRUECKE 
N 

2032 ME="" 


2848 GETZE: IFZ$=""THEN2948 

2858 IFASC(ZF)=1STTHENZ21BB 

2B&B IFASC (ZF)=ZBTHENMF=SLEFTE(MF,LEN (M$) 
-1):G60T022888 

2885 IFME£(ASC(ZE) )=""THEN2948 

20870 M£=Mt+Z7#: IFLEN (M$) >2S4THEN2129 
28082 FRINT"SELLTEEGERBI" ME J. 

22978 GOTOZA4B 

21208 FRINT"S":FORK=1T08:PRINTECHRE (17) :NE 
XT:FRINT"ERETTEXT UEBERNOMMEN „M" 

zZ11B8 FRINT"LIREBRWMELCHE GESCHWINDIGKEIT" 
2128 INFUT"LEBICIN WORTEN/MINUTE) TIIRRBRBI" 
:6 

2497 REM #HHHRHERRERREHRHr 

2498 REM ** UEBERSETZEN #% 

2499 REM XS RR RR 

2508 65=20/6*46 

2518 FORI=1TOLEN (M#) :A=ASC (MIDE (M#,I,1)) 
2515 IFA=3S2ZTHENGOTO2Z9BB 

2522 FORJ=1TOLEN (M&£ (A) ) :B=ASC(MIDE(ME(A) 
4,19) 
I 25358 IFB=2B5STHENGOSUB2782 
| 2549 IFB=286&THENGOSUB2899 

25528 NEXTJ:FORK=1TOG: NEXTK 

2568 NEXTI 

25865 FRINT"KERBITTE TASTE DRUECKEN " 
2578 FOKE198,B8B:WAIT198,1:FOKE198,8:G60T053 
82 

2708 FÜKEW,S3:FORK=1TOG:NEXT:FOKER,32:F0 
RK=1T0G:NEXT: RETURN 

2802 FOKEW,S3S:FORK=1T03*G: NEXT: FOKEW,32: 
FORK=1T0OG:NEXT: RETURN 

2982 FORK=1T03*+G6: NEXT: GOTO2548 

2997 REM FHHHRERHRRERHERKRKHERHRE RER 

2998 REM #* MORSEZEICHEN EMPFANGEN * 

ZIFP7 REM ZRH ERRERHEEEEHÄHHREHRERERER 
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Ss222 FRINT"IISGEBEN SIE JETZT IHRE MORSE- 
ZEICHEN UEBERkKDIE TASTE ’F7’ EIN !" 

3285 FRINT"LWWENN FERTIG, CA. 5 SEC WARTE 
N UND DANACHWTASTE ERNEUT DRUECKEN" 

30598 FRINT"LRIEZALLES ROGER®EG ES KANN JET 
ZI LOSGEHEN! 5” 

3102 W=54276:1=49152 

3118 FOKE198,8:WAIT198,1:FOKE1978,8 

3128 IFFEEK (2905) <>&s4THENZ208 

3168 FOKEW,32:5Y5654997 

3178 IFPEEK (2835) =44THEN3178 

3188 G60T03338 

352808 FOKEW,33:5Y565497 

3218@8 IFFEEK (2835)<>64THENS218 

3358 IFTI>2SSTHENSS2® 

3548 FOKEI,TI:I=I+1:60T05128 

3497 REM KH HH RR HER 

3498 REM * MORSE-AUSWERTUNG * 

3499 REM HH HH HERR RR ERER ER 

3508 PRINT"LLES FOLGT DIE AUSWERTUNG" : PR] 
INT"L .M=B: MF=" " 1! 
3518 FORII=49152T0I-1:M=M+PEEK (II) :NEXT 
3520 M=M/ (I-49152) 

35358 FORII=49152T0OI-1:N=FEEK (II) 

3548 IFN>MAND(IL/2<>INT(II/2) ) THENGDSUBS 
889: M+="" 

3558® IFN<{MAND(II/2=INT (II/2)) THENMF=M$+C 
HRE (205) 

3568 IFN>MAND(II/2=INT(II/2)) THENME=MF+C 
HRE (296) 

3578 NEXT: GOSUBF492 

3588 FRINT:FRINT"ELBITTE TASTE DRUECKEN 
3592 FOKE198,8:WAIT198,1:FOKE198,98:60T03 
228 

Ss08 FORI=SZTOIR 

3612 IFM£=MF$(J) THENFRINTCHRE(J); 

3628 NEXT 

36838 IFN>M#+STHENFRINTCHRE (32); 

36540 RETURN 

3997 REM KHHRHHH HN 

3998 REM * ZEICHENTABELLE + 

3Z999 REM FRREHEHERREEHRERtr 

ABDRB M=B:N=B:FRINT"W":FORI=S1T0108: IFME (I 
})=""THEN410D 

4018 M£=M#(1I): IFI=S2THENA410D 

4828 FRINTTAB(M*1SI)CHRE(I)" = "M£:N=N+1: 
IFN=19THENFRINT"S":N=9:M=M+1 

4128 NEXT 

42828 FRINT"ERBI":FORK=1TO11:PRINTCHRE (17) 
:NEXT:FRINT"BITTE TASTE DRUECKEN" 

4308 FOKE198,8:WAIT198,1:FOKE198,9:G0OT0O3 
08 

4997 REM #AxRH#Hx3%%%* 

4998 REM * ABGANG # 

4999 REM #H#x%H%%%+ 

Ssa22 FRINT"W"SFC(II) "EEOREREDK, DAS WAR'S" 
Ss2i® FORI=1T02998: NEXT:SYS54758 

9998 REM KUH HHH EHER 

18828 FOKE214,22:FRINT:FOKE211,II/100 
102818 FRINT" 15 BITTE WARTEN me" 

18015 II=II+198 

129822 RETURN 

19977 REM Heer 8 


19998 REM * TITELBILD + 


ikaa rn 
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DATA44,"/NVF" 81," ZN" 
DATASS ,"NNVANN" 5653, "N" 

DATA&S, "ZINN" 3,67," N" 

DATASB, "NN" 369," N" 

DATA7D, "NUN" 371," //N" 
DATA72,"NNNAN" 58," /FINNN" 

DATATZ UNS", 7A," N//L" 
DATA7S,"/NV" „76, "NN" 
DATA77,"//" 73," /N" 
DATA7F,"///" ,32, "NR" 

DATABL, "ZN" „32, N" 

DATASSZ, "NNN",„84,"f" 
DATABS, "NV" „84, "NN" 

DATA87 ,"\Y/" ,88," HN" 

DATA8I,, "NIS", IO," FINN" „1 

REM KAHN NEHEEH HH EHE 
REM SYS 65499 {=> TI$E-"DYADDE" 
REM SYS &4738 {=> SYSTEM RESET 
REM sure sun 
REM VARIAELENTABELLE 

REM #323 HH Hr 
REM M£(X) “=> MORSEZEITHEN ZU X 
REM 5 <=> MORSEGESCHRINDIGEEIT 
REM M£,Z# “=> HILFS-STRING 

REM W <=>SI:VOICE I: WAVEFORM 
REM A,B,I,II,K “=> HILFSZAEHLER 
REM TI <=> TIMER IN SEC/&2 

BEM zur aue Hs eerrerertr 
REM ABSFEICHERUNG DER TIMERWERTE 
REM ZUM ENTSCHLUESSELN DER MORSE 
REM ZEICHEN AB 49157 (DEZ.) 

REM ZI##-H HH Hr HH rer ee 
REM NEUER ZEICHENSATZ AB 12228 


REM = Se HH re 


1199997 REM FH 

|202392 FOKESS289,2: FOKESS281,0 

28212 FRINT"II"SPC(7)"o o"SPL (20) "I: 
ey" 

20822 FRINTSFC(S)", SPC) m" 
2030 PRINTSPC (9) "a "Spc(19)" pr By" 
20848 PRINTSPC(B)" en, "SFcis) ae 
u" 

208058 FRINTSFC(T)"TO 5 "SFC" 
22868 PRINTSFC(12)", "SPAN" pız" 
28078 FPRINTSFC(I1S)", "SFC" wi" 
2OQ8EB FRINTSFC (14) "Sa "SPC (11) "Ip ey" 
2BORBFB FRINTSFC (10) "LE nat "SPC(11)"R 
DA 

2B1OB PRINTSPC (27) ww" 

28112 PRINTSPEC (11) "ERXLtMORSEZEICHEN" 
28128 FRINTSPC (7) "EElSce® BY JENS MARTENS 
UND": PFRINTTAB (14) "BSTEFAN INGENHORST" 
128138 FRINTTRIBBBEBIANDROMAT-S 

OFTWAR Em" 

1298148 RETURN 

129997 REM FEHRRRHFRHHERFEFRHRRN 
|27798 REM #* MORSE-ALFHABET ** 
29999 REM FEHEKKHRHERERFERKFHFR 
|saaoe DATAS2," " 

= DATAZA "NN" 39," V///N" 


(a nn ee ee en ur rue nn 


ur 


nr 


30928 DATAAD,"NZN" 41," /VYIN" 
30038 DATA43,"\YNN" 5,45," NV" 
208848 DATA4S,"\VYVWV" 47," /NUN”" 
30858 DATA48,"/////" 497," V/L!" 
30868 DATASY,"NV//" SI," NNV/" 
39872 DATAS2,"NNNV",SF,UNNSNSNN” 
ZBOB8B DATASA,"AANAN" SI," ZINN" 
ZBOBFB DATASS,"ZZNN” 337 1" /LFN" 





Listing vom »Morsetrainer« (Schluß) 





TA (IK Ausaabe 6/Tuni 1984 


Movemaster 


VG 20+8 KByte 


BEEBIN SER EEE RP 


»Movemaster« wurde für die Erstellung 
beweglicher Grafiken konzipiert und 
läuft mit mindestens 8 KByte Speicher- 
erweiterung. Das Programm verwaltet 
bis zu 47 kleine Bilder, die man beliebig 
untereinander mischen, kopieren, spei- 
chern, laden und schließlich der Reihe 
nach, mit wählbarer Geschwindigkeit, 
im Bildschirm einblenden kann. Dies er- 
gibt schließlich den Zeichentrickeffekt. 


N 
= 
ö 


esmag 
B min mb 
’ 205836 
=PN® 


ae 
5 


GIalten 

hält Maschinencode-Routi- 
nen, die Aufgaben überneh- 
men, deren Äusführungszeit 
von Bedeutung ist (zum Bei- 
spiel Grafikausgabe). Au- 
Berdem nehmen diese Ma- 
schinencode- Routinen ent- 
] weniger Spei- 









cherpl 1 gleichwerti- 
ge Bas n. Die SYS- 
Adresse der einzelne 
Routinen gehen aus Tabelle 
2 hervor 


Programmeingabe 


Zuerst wird der Lader (Li- 
sting 1) eingetippt und sı- 
cherheitshalber abgespei- 
chert. Eine kurze Zeit nach 
dem Starten des Laders er- 





‚FEHLERLOS« oder »TIPP- 
FEHLER« Im zweiten Fall 
wohl die DATA- 
auch der Lader 
und verbessert 
werden Erst bei der Änzei- 


HLERLOS« der 






darf 














a mit NEW gelöscht 

werden. Bei richtiger Einga- 
be bei ahnen dıe Speicher- 
zellen 45 und 46 die Zahlen 
68 und 27 (dezimal). Ist das 
nıcht der Fall, sogibtesnoch 


einen (oder mehrere) Tipp- 
fehler, die bereinigt werden 
müssen. Das ganze Pro- 
gramm mui Bex xakt übernom- 
men werden — kein Zeichen 
mehr oder weniger 

Damit »Movemaäster« zu- 
sammen mit den Maschinen- 
code-Routinen abgespei- 
chert werden kann, müssen 
davor die Speicherzellen 45 
und 46 auf O und 30 geändert 
werden. Dashat den Vorteil, 

daß der Lader nicht mehr 


benötigt v 





vird 


Programm- 
e 





de "Bei fehle zur Verfü ügung 


N — Wählen der Bildnum- 
mer (von 1 bis 47 Bil- 
dern bei 24 KByte 
Speichererweiterung) 
oder Information über 
die momentane Bild- 
nummer 


Löschen eines Bildes 





Bild 1. Das Movemaster-Hauptmenü 


oder des Ärbeitsspei- 
chers 





I — EinBild in den Ar- 
beitsspeicher übertra- 
gen und mit dem In- 
halt mischen 


© — Den Arbeitsspeicher 
in ein Bild übertragen 
und überschreiben 


K — EinBildineinanderes 
kopieren 





Z -—. Bilder mit dem Joy- 
stick oder der Tastatur 
in den Arbeitsspeicher 
einzeichnen 





V — Den Inhalt des Ar- 
beitsspeichers mit 
dem Joystick oder der 
Tastatur verschieben 


Den Inhalt des Ar- 
beitsspeichers in das 
momentane Bild über- 
schreiben und die mo- 
mentane Biläinummer 
um eins erhöhen 


Eine Bildfolge nach- 
einander abrufen und 
im Bildschirm einblen- 
den 


Eine Bildfolge vom 
Band lesen 


Eine Bildfolge auf 
Band speichern 
Rückkehr in das 
Hauptmenü 


Zur m Zeichnen wird, wie 
ähnt, der Jo 
Hast ature 


zw. Hebel 















Beispiele zur 
Programm- 
bedienung 





* Ein Rechteck soll ins Bild 
Nummer |] eingezeichnet 
werden, Zuerst wird der Be- 
fehl N eingegeben, dem ei- 
ne Frage »BILDNUMMER% 
folgt, die mit 1 beantwortet 

wird. Mit der Eingabe von Z 


wird in den Grafikmodus 
umgeschaltet. Der Bild- 
schirm wird schwarz. Die 


momentane Position istinder 
Mitte des Bildschirms. Jetzt 
kann gezeichnet werden. Ist 
das Bild fertig, so wird es mit 
B abgespeichert. R führt zur 
Rückkehr zum Hauptmenü. 


* Das Rechteck aus Bild 
Nummer ] soll in Bild Num- 
mer 2 etwas höher liegen. 








VG 20 +8 KByte 


Mit Z wird wieder in den 
Grafikmodus umgeschaltet. 
Im Arbeitsspeicher befindet 
sich noch das Rechteck, und 
es wäre unklug, es mit Q zu 
löschen, da es ja den Befehl 
V zur Verschiebung gibt. 
Nach der Eingabe von V 
blinken die Begrenzungs- 
punkte, und das Rechteck 
kann verschoben werden. 
Vor dem Äbspeichern mit B 
wird mit Z die Verschiebung 
unterbrochen. Die Eingabe 
von N führt zur Information 
über die momentane Bild- 
nummer. Mit R wird die 
Grafik-Routine verlassen, 
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Die Bilder Nummer l und 
Nummer 2 sollen miteinan- 
der gemischt und als Bild 
Nummer 3 abgespeichert 
werden. Im Arbeitsspeicher 
befindet sich noch das 
Rechteck Nummer 2 also 
reicht der Befehl I und 1 
schon aus, um die Bilder zu 
mischen. Mit O und 3 wird 
der Arbeitsspeicher ins Bild 
Nummer 3 kopiert, 


=Bild Nummer 2 soll in Bild 
Nummer 4 kopiert werden. 


Dazu wird der Befehl K be- 
nutzt. Die erste Zahl, die ein- 
gegeben wird, ist logischer- 
weise 2 gefolgt von einer 4. 


*Dieeben gezeichneten Bil- 
der sollen der Reihe nach in 
den Bildschirm eingeblen- 
detwerden. Nach der Einga- 
be von Twird die Anzahl der 
Bilder angegeben, die proji- 


Movemaster 


ziert werden sollen, in die- 
sem Falle also 4. Die Werte 
für die Verzögerung sollten 
zwischen 0 und 200 liegen, 
da sonst die Pausen zwi- 
schen den einzelnen Bildern 
zu lang werden und somit 
der Zeichentrickeffekt nicht 
erzielt wird. Mit R wird die 
Projektion unterbrochen. 
(Artur Wystub) 


han 79 


Movemaster VG 20+8 KByte 







Begrenzungspunkte löschen 
IC3E 7230 Begrenzungspunkte setzen 
IC4F 7247 Bild nach oben verschieben 
1C8l 7297 Bild nach unten verschieben 
ICBl 7345 Bild nach rechts verschieben 

1DO8 7432 Bild nach links verschieben 

1ID5F 7519 Bild in Arbeitsspeicher kopieren 
1D7TE 7550 Arbeitssspeicher ins Bild kopieren 
1DSD 7581 Grafikmodus setzten 

1DB9 7609 Arbeitsspeicher löschen 

Bild mit Arbeitsspeicher mischen 















Adressen der Maschinencode-Routinen 


— Befehlsvariable 

— Bildfolgename 

— Höchstmögliche Bildnummer 

— Momentane Bildnummer 

— Gewählte Bilderzahl 

— Verzögerungsvariable 

— VIC-C-Basicadresse (36864) 

— Horizontale Position auf dem Grafikbildschirm 

— Vertikale Position auf dem Grafikbildschirm 

— AÄdresse der durch (X,Y) Position ermittelten Zelle 
— Wert dieser Zelle 

— Modusvariable (V=0 zeichnen, V=] verschieben) 
— Laufvariable in allen Schleifen 





Variablenliste 


198 REMMMKLOARDERKH% 

28 FORT=7197T07672 

393 RERD R$ 

48 H=ASC(MIDSCAS,1,137-48 

59 L=ASCCMIDFCA$,2,1))-45 

68 IFH>9THENH=H-7 

78 IFL>STHENL=L-7 

58 POKET,H#16+L:Z=Z+H#16+L 

38 NEXT : IFZ<D49265THENPRINT"TIPPFEHLER" END 

35 PRINT"FEHLERLOS" END 

129 DATAA3,7F,2D,98, 1E,50,99, 1E,A9, ?7F,2D,47,1E,80,47,1E,A3, FE,20 
110 DATABB, 1F,8D0, BB, 1F,AS,FE,2D,F?,1F,80,F7,1F,659,R9,590,80,99,1E 
124 DATASD,47,1E,A9,91,8D0,B8,1F,8D,F?,1F,69,A2,91,BD,@1,1E, 30,06 
138 DATRIE,BD,49, 1E,9D,48, 1E, El, 91, 1E, 90,39, 1E, ED: DS, 1E:3D.D8. 1E 
148 DATABD,21,1F,90,20,1F,BD,63,1F,90D,68,1F,BD,B1,1F,90, BA, 1F,ES 
159 DATAEB, 47,D09,D1,69, 2,45, BD,89, 1E,3D,@1, 1E, ED, 48, 1E, 30,49, 1E 
169 DATABD, 98, 1E,90,91,1E,ED,DS, 1E,30,D9, 1E,BN, 28, 1F,SD,21,1F. EN 
178 DATA68, 1F,90,69, 1F,BD,B9,1F,9D, Bi, 1F,CA, 19,03, 69, AR, ?F,As,00 
188 DATAR2,99,5E,BO,1F,SE,68, 1F,99,97,98, 70,88, 1F, 20, E@, 1F,SE. 20 
1229 DATAIF,99,07,98,7D,68,1F,3D,68,1F,SE,D8, 1E, 39, 97,98, 70, 24,1F 
208 DATASD,29,1F,5E,99, 1E,99,097,98,70,108, 1E,3D,08, 1E,5E, 48. 1E. a0 
218 DATR97,98,7D,99, 1E,9D, 982, 1E,SE,98, 1E, 98,97.98,7D, 43,1E,2D,42 
228 DATAIE,ES,E9, 47,19, BO, 69, A9,9090,R9,09,R2,09,1E,90, 1E,1E,48, 1E 
239 DATR98, 97,98, 71,998, 1E,90,20, 1E, 1E. 99, 1E.99,97,98, 71.43, 15,20 
248 DATA43, 1E, 1E,D8, 1E,99,97,93,7D, 9%, 1E,90, 39, 1E, 1E, 28, 1F. 24,07 
250 DATA33,7D,13, 1E, 90,08, 1E, 1E,68, 1F, 90, 97,98, 70,29, 1F. 91,29, 1F 
268 DATRIE,BO, 1F,98,97,98,7D,68,1F,90,68, 1F,ES,E9, 47,19, 89.58. 
278 DATAB9, 85,93, A9, 1E,35,94,A9,90,B1,91,91,93,E5,91,E85,93,18, 
239 DATAES, 82, E6, 94,9, 29,05,94,18, EC, 659,49,05,35, 

234 DATAA9,098,B1,93,91,01,E6,91,E6.93, 09, F6,E6,92,E6. 94,R9,29,05 
328 DATA@4,D9,EC, 69, R2,99,R9,49, AB, 90,90,99,19,18,69,99,E3.03,C0 
318 DATA97, D2,F4, AB, 99,38,E3,3E,69, 49,19, EB. 659, 9, 09,35.93.92. IE 
328 DATA8S, 94,9, 90, AR,09,91.03,E6,91.E6,93,19,F8,E6,92.E5,94,#9 
3380 DATAZ9,C5,%24, 18, ER, 69,9, 99,35,93,#9, 1E,85, 94, AB, 99, 81,01, 11 
348 DATAQ3,91,93,E6,91,E6,903,D09,F4,E6,92,E6.94,R9, 29,C05.84,18;ER 
358 DATA6B 


Solche Bilder 
lassen sich mit 
Movemaster per 
Joystick erzeugen 
und zum Leben 
erwecken 


READ'T. 





Listing 1. Maschinenprogramm-Lader zu »Movemaster« 
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Movemaster 


5 REM#By ARTUR UYSTyR ZEEHNRVC- Zu, SED. 12, og 

24a en gen 
Z=IN Ne 

8 SOSUBS3g PRINT"; “BILD NR. CIN-OUTJ 2 ZEICHNEN 

58 PRINT" KERSCHIEBEN« IK KOPTERERn ® "TLOESCHENn 

58 PRINT» "I ILD HOLEN", ı “D-BjLp SPEICHERN". 2 BLAET TERN 

© PRing“ „TRICK Be Lone, TERVEr gen 

39 Ifpszuıu N6osy 522: 607049 

99 IFAgzun H, Y=9:60 219: 007949 

19g IFAgzupu NGosyp> 9:607 48 

lıg IFAgzuu Y=1:G YB219:G0794g 

120 IFAg= EEE Ben ga 

139 Rene SEE Saum 

149 IFAgzugu ENGO B 'SYS?755g: 024g 

15g IFAszugn NGos ERSTE SOTgg4g 

leg IFAgzu u ENSOSUBaSR.:o072 

178 IFAszuc HENGOSUB4 75 SOTO4g 

135 IFAgzuTu H NOOSUB3Sg 9 

139g IFAszuRur N4g 

a SOSUBE5g 0T94g 

219 SOsyBsg >27: yazs 

220 IFy=] Tygy 787197 

236 SOSUR7 5 een, 

245 POKEP, NORp EK(py 

258 IFCPEEX En neo 

2659 Eine Rune as eohpee.« 

278 BETR$: 


2 
830 FRINTAg:G 
699 RETURN 

A POKE3? 154 


Pag 
Pla IFCPEEKe = 13 
r26 IFCPEEX.S 1 


?39 IF(PEEXL> 
748 IFCPEEKeS 


756 IFR<COTyen.. 
756 IFKISSTHEN 


e Ne: 4 
365 PRINT" 
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a RETURN nn Y SIE EINEN 


5 ‚ESSERETURN 
MGEGSL ICHS: 


IFA En ene, 
Henee ante S152200suneno: 
v=g: a 


T EEE Lan. 
R. KZOE DER NDOSUBOGg "asus: 
OB0:FORRUNG "ao RETURN 


5) :G0g Sig: 
TE ES u 
R"THENGOSUBB.4 17.008 


9 NEXT: RET 
Lin NUMMER: "iEm 


AR, BILDANZAg BZ 


7 < RETURN 
ER 
, { 


a 
a Era Eike et 


L UNB EEE ng, 
ARTEN" Denn Ken) 


122 PORES? 135,5 

r137 Y Er an. 
men. 

ASTIANDAyegoR EN ERS 

Se SET 
& 


r SR U 
7155 


Nx=S5 


Nr=7g 


2 





Listing 2. 
Movemaster — 
Das Hauptprogramm 


Zap 8] 





Bild 1. So übersichtlich erscheint die 
Darstellung eines Balkendiagramms 
auf dem Bildschirm 


GC 64 





Übersichtliche Grafik statt endloser 
Zahlenkolonnen — dieses Programm für 
den Commodore 64 mit Simons Basic 
kann Tabellen wahlweise als Balken-, 
Kurven- oder konventionelle Strichdiagramme darstellen. 
Die laufende Umschaltung zwischen den verschiedenen 


Darstellungsformen ist möglich. Auf Tastendruck kann man sich jederzeit eine 


Hardcopy des 
Bildschirminhalts 
auf einem Epson 

RX-80-Drucker 
erstellen lassen. 


ach dem Start meldetsich 

das Programm mit dem 
Titel »Chart | — Programm 
zur grafischen Zahlendar- 
stellung«. Dieser Titel er- 
scheint etwa drei Sekunden. 
Durch Drücken der Return- 
Taste wird vorzeitig zum 
Hauptmenü gesprungen. Bei 
der Hauptmenüabfrage ak- 
zeptiert das Programm nur 
Zahlen von | bis 4 und den 
Buchstaben E. 


Vom Hauptmenü 
aus sind alle Funk- 
tionen abrufbar 


Zunächst zur Funktion 4. 
Durch diese Funktion wird 
die letzte im Speicher be- 
findliche Grafik dargestellt. 
Fallssich auch noch die Wer- 
te im Hauptspeicher befin- 
den, kann von dieser Grafik 
ausgehend das Programm 
durch Antippen des entspre- 
chenden Buchstabens fort- 
gesetzt werden. Falls die Ab- 
solutsumme (MC) Null ist, 
geht das Programm davon 
aus, daß keine Werte mehr 


2 Nur 





REEREHRRESERSEIEREISEEISICKEH 
REM+HH« CHART 1 #4% sr 
a4, 222222222222 2727272727277777772727272270 
5 POKES3259, 19: POKES3231, 12:PRINT"'M" 
sa DIMAC22),AC22),8122).,0(22),F(22) 
199 PRINT"TI"ATCIZ.EI2"DDD> CHART 1 <<<" 
138 PRINTAT(7,11>2"PROGRAMM ZUR GRAFHISCHEN” 
152 FRINTAT<11,15) "ZAHLENDARSTELLUNG" 
174 FAUSES 
224 PRINT" 2 DERDIELLUIES Eee 
254 PRINTATCS 
229 ERINTOTES SIR ENGER 
a PRINTAT(S,S>"DIAGRAMM 3" 
PRINTAT(S, 11P"LETZTE GRAPHIK. oo 000...4" 
PRINTAT<S,15>"BITTE WAEHLEN SIE >>>" 
a FRINTAT(S.19>"ENDE,. ...... ... 
a GETE£: IFE&=""THEN37O 
IFES="E"THENFRINT"NI" END 
77 IFEF="4"THENGOTO 3100 
a IFES<" L"OREF>"3"THENSTA 
A FRINTAT(23,1S>E$ Listing für die grafische Darstellung von Zahlen 
=YALCEF) 
BEL 





"REIHE 
REM##S+4+ CHEN zur 
Da REINE 
=359/MC :MAX=-19135 
HIRESO, 1A 
LOW COL1,14,14 
CIRCLE160,119,20,48,1 
ARC16E9,134,909,279,59,58,49,1 
LINESY, 119,59,138,1 
LINE249,119,249,138,1 
HI COL:S=9:W1=9 
FORD=1TOR:FCDY=INTCABSCHCDII+.52 :NEXTD 
FÜRD=1TOA 
S=5+F(D)} 
WI=SCCS#I)/120) En 
Ss=ll(FCMD/DEII/1SN) En 
LOW COL1,14,14 
ANGL169,119,5#1,530,49,1 
IFCS#II<279ANDCSKIY>9G@THENGOSUBLIAG 
HI COL 
J=z115:K=67 
IFA>1GTHENJ=128 
IFX{DI<ETHENLON COL 2,14,14 
IFXCD>=BTHEN1130 
IFMC/ABSCHCLY>>?7STHEN1189 
DESLEFTECSTRSECHCD)I), 33 
TEXT155-COSCCH1-WEI + M/ZI IE, 118-SINC CUI-U3BI HH / ZI IK, DE, 1,1,8 
IFSCD)<@THENHI COL 
NEATD 
NHl=B:NU2=0:413=9:5=8 
FÜRD=1TOA 
IFXCIDI>MAXTHENMAX=KCD) 
Bat D 
W1=8:HN2=9:NW3=9:5=0 





id 
Sn 


EPSON ER NER 


CD 9 CC RO ET EN MANN EN Be LP Fi mm ma na ma na na 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


bu dm hub hun be db u bb db u dd db du dh dt heit u m hi det hen du du Fa din fu Di dm Fu du 


ca co 00 
INA OUD ANAND 
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G 64 Grafische Darstellungen 





Bild 2. Das Balkendiagramm ist 


: : = es L vn zur vergleichenden Darstellung 
I 95 \ 

1199 LOM COL 1,14,14 ET besonders 

1191 U2=CCSEI)/130) #0: U3=CC(FCD/DEDD/130) #7 gut geeig 

11933 IFXCDI=MAXANDKCDISACD+LITHEN1199 

11935 IFXCDI=MAXTHEN PRINT159@-COSCCU2-U2)+n/2I)#28, 118-51INC CH2-US)+n/23#20, 1 


1193 NEATD 

1133 HI COL 

1209 GOSUB1925 

1297 LOW COL11,14,14 

1219 TEXT19, 6,"9"+T$,1,2,12 
IFLEFTSCH$, 13<>" I"THEN1499 

1229 TEXT18,25, "MITTELWERT = "+STRECMHWI,1,1,8 
123@ TEXT19,33, "SSUMME = "+STRECMHB),1,1,5 

1248 HI COL 

1429 H£=" RNENUE=N IALKEN=I 
1458 LOM COL 15,.14,14 

1599 TEXT3, 198, "13"+H8,1,1,3 
1559 HI COL 

1729 GETZ$: IFZ$=""THEN1708 
IFZS<>"M"ANDZS<SD" B"ANDZS<CH"D"ANDZES>"C"THEN1700 
a IFZ#="M"THENCSETB:GOT0229 

IFZ#="D"THENGOTN4299 

IFZ$="B" THENGOTO2899 

a IFZE="C"THENCOPF:GOTO1789 


IAGRAMM=7 2 -OPYr=E" 





1338 END 


1999 D1=168-C0S<CH1+n/2)%#39:D2=119-5INCH1+n/2)440: I3=12+20 


1218 LINED1,12,D1,13,1 
1324 RETURN 


1938 FORD=1TOR 
S=S+F(I? 


1=368/MC:5=8:LOWN COL1,14,14 


IFX<CD>I=MAXANDS<CDI=ACDO+1 I THENRETURN 


1333 W2=SCCSEII /130) En :U3SCCFCDI/DEII/1S@) Em U4=CCCS-FIDDIEID /1S0) En 


IFS$I<IBANDCS-FCDI I#I<CIORANDSCDI=SMAXTHEN195S 
IFS#I>26SANDCS-FCDII#I>ZESANDSCDI=MAZTHENI3E3 
IFS#1<279ANHD<S-FCDID#IDIBANDACD?=MAXTHEN1942:ELSE:GOTO1944 


1342 PAINT158-LOSC CU2-USI+n/23#58, 115-SINCCHZ-UND +0/27448, 1: 60701955 


IFS#I>93ANDCS-FCDI I#I<SIGANDA<CDI=MAXTHEN1345: ELSE: GOTO1947 


1945 PAINT151-COSCH2+0/2)#389, 115-SINCH2+0/2)#40, 1:60T01358 


IFS#I>=278ANDCS-FCDIIHI<ZSESANDACDI=MAXTHEN1948: ELSE: GOT01955 


1943 PAINT1S9-CISCU4+n/27#88, 115-5INCH4+0/27#48,1: 60701965 


IFS#1>279AND<S-FCDII#I<IBANDXCDI=MAXTHEN19S2:ELSE:GOTO 19655 


1352 PAINT159-C05C CH2-U2I+n/27#38, 115-SINCCH2Z-W3I+n/2)#49, 1:G0T01968 


1963 NEXTD 
1979 HI COL 
12359 RETURN 
a END 

u 


Listing für die grafische Darstellung von Zahlen (Fortsetzung) 


2 REM EFT 
919 REMEHHHFREHH | EALKENGRAFHIK #444# 


2040 REMIFFFSRREEEEE EEE 


2a5A T=9:Z=9:0=A 
2978 FORD=1TOA 
210m ACD>=XCD} 
2134 NEXT 

22320 FORD=1TOA 


2259 NEXTD 
2252 GH=ABS(CH)/10R 


vorhanden sind und springt 
in das Hauptmenü zurück. 


Die Werteeingabe 
ist unkompliziert 


Bei der Auswahl von Zah- 
len zwischen l und 3wird zur 
Werteeingabe übergegan- 
gen. Älserstes wird der Titel 
abgefragt, wobei ein Leer- 
string nicht akzeptiert wird, 
da der Titel gegebenenfalls 
gleichzeitig als Filename 
verwendet wird. Beider dar- 
auffolgenden Abfrage nach 
der Mittelwert- und Sum- 
menberechnung werden 
nur Eingaben akzeptiert, de- 
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a IFABSCACDYDDTTHENY=ABSCACDY? 


IFMC<>MBANDA<=19THENT=SE :GH=2#6H 


ren jeweils am meisten links 
stehendes Zeichen einjoder 
nist. 

Anschließend wird die An- 
zahl der Werte abgefragt, 
die zwischen 2 und 20 liegen 
muß. Bei der jetzt folgenden 
Werteeeingabe sind alle 
Zahlen zulässig, die im Wer- 
tebereich des Commodore 
64 liegen. Nach der Darstel- 
lung der Werte in zwei Rei- 
hen muß die Sicherheitsab- 
frage in der gegebenen Wei- 
se mit j oder n beantwortet 
werden. Das Programm bie- 
tet jetzt die Möglichkeit, die 
Wertetabelle auszudrucken 
und/oder abzuspeichern. 

Achtung: Bei der Abspei- 
cherung wird ein eventuell 


Anschließend wird in den 
Grafikmodus umgeschaltet. 

Die Werte werden — aus- 
gehend von der »l2-Uhr-Stel- 
lung« — als »Kuchenstücke« 
dargestellt. Der Maximal- 
wert (oder die Maximalwer- 
te, falls sie nicht direkt ne- 
beneinanderliegen) werden 
ausgefüllt. Die Werte wer- 
den konzentrisch um den Ku- 
chen ausgegeben, wobeine- 
gative Werte rot dargestellt 
werden und Null-Werte, 
ebenso wie Werte, die klei- 





Bild 3. Mit dem Kuchendiagramm lassen sich Größenverhältnisse Innerhalb einer 
Wertemenge sehr übersichtlich und augenfällig darstellen 


unter diesem Namen existie- 
rendes File überschrieben. 
Die so abgespeicherte Ta- 
belle kann später wieder mit 
dem SCRLD-Befehl des Si- 
mons Basic aufgerufen wer- 
den. Nach der Abspeiche- 
rung der Tabelle wird der 
Floppyfehlerkanal abge- 
fragt und gegebenenfalls ei- 
ve Fehlermeldung ausgege- 
en. 


ner als 4%; der Betragssum- 
me MC sind, nicht berück- 
sichtigt werden. 


Balkendiagramme 


Bis zu zehn Werte werden 
einreihig dargestellt. Bei ne- 
gativen Werten werden die 
Balken sowohl über als auch 


BIETE: 


Grafische Darstellungen 





2255 
2269 
2239 
2399 
2219 
2312 
2315 
2317 
2318 
2319 
2328 
2322 
2324 
2349 
2342 
2344 
2350 
2359 
2388 
2339 
2335 
2429 
2492 
2405 
2419 
243% 
2432 
2435 
2435 
2437 
2448 
2569 
257% 
2539 
2539 
265695 
2625 
26507 
26519 
2615 
2628 
2625 
2626 
26253 
2539 
2631 
2632 
2E34 
2635 
26265 
2637 
2638 
2633 
2649 
2642 
2645 
26545 
2559 
2655 
26650 
2662 
2678 
265938 
2339 
2322 
2325 
2338 
2849 
2345 
2347 
2358 
2859 
2378 
2339 
2839 
2399 
2318 
2915 
2329 
2939 
2248 
2345 
2947 
2359 
2955 
2366 
23655 
2378 
sage 
3919 
3915 


FORD=1TOA:ACDI=ACDI/GH:NEXTD 
IFA<=19THEN2399 

IFA>19THEN2399 

REMEHFHRH MAX 19 WERTE FEHRHERERH 
HIRESA, 14 

LON COL 15,14,14 
TEXT19,5,""+T$,1,2,19 


IFLEFTSCM$, 1>="J"THENTEXT18, 23, "SMITTELHERT = "+STRSCHWI, 1,13 
IFLEFT$CM$, 1)="J"THENTEXT18, 31, "SUMME = "+STRSCMBI,1,1,5 


HI COL 

LINE4@, 168-0, (40+A#26)+19,160-C,1 
LINE(40+A#25) +5, 159-0, (4@+A#25)+18, 169-5, 1 
LINEC4R+A#26) +5, 162-0, (4O+AKZE) +19, 158-0, 1 
LINE4#, 169,40,59,1 

LINE42,55, 48,59, 1 

LINE38, 55, 49,591 

g=2 
FORF=1498-(C#(4/52 3 TOBASTEPCC-287+(.24C)) 
LINESS,F,41,F,1 

2=0+29 

LOW COL 9,14,14 

TEXT 8; F-6,STR$(9), 1,1,8 

HI COL 

NEXTF 

CHAR19,155,37, 1,1 

FORD=1TOA 

H1=409+D#26 

IFXCDY<OTHENLOM COL2,14,14 
IFACDY<OTHENY=119:ELSE:Y=119-ACD> 
IFMC=METHENY=169-ACD? 
RECH1-18,%,14,RBSCACDYY, 1 
LINEH1-18,%,H1-12,V-6,1 

LINEH1-4, 168-ACD)-C,H1+2,154-RCDI-C,1 
LINEH1-4, 168-C,H1+2,154-C,1 
LINEH1+2,Y-6,H1-12,V-6,1 

LINEH1+2, 154-ACD>-C,H1+2,154-C,1 
IFX(CD)=@THEN2615 
IFXCD><ATHENPAINTH1, 198,1 
PAINTH1-3.Y+1,1 

IFXCD)<OTHENHI COL 

NEXT D 

T=-1 

LOOP 

T=T+2 

BCT>=INTCKCTI+.5? 
B(T+13=1NTCXCT+1)+.5) 
IFX<T)=8THEN2835 
P=195-ACT?-CACTIP/ABSCACTII#1D 
IFX(CT+1?=@THEN2637 
A=10O3-ACT+1I-CACT+1?I/ABSCACT+HLII#1Q 
IFMB=MCTHENP=165:90=174 
IFACTI<OTHENLON COL 2,14,14 
IFX<T)=8THEN2542 

TEXT(49+T#26)-23, P,LEFTSCSTRECB(CT??,39,1,1,7 
EXIT IFT>=A 

IFACT+LI<BTHENLON COL 2,14,14 
IFXCT+1)=9THEN2655 


TEXT£49+T+12#269-23, Q, LEFTSCSTRSCB(T+123,33,1,1,7 


EXIT IF T+1>=A 

IFACTI<ZSTHENHI COL » 
IFACT+1)<OTHENHI COL 

END LOOP 

GOTO3S99 

REMERFREEERE MAX 20 WERTE KHK 
HIRES@, 14 

LOU LOL 1,14,14 
TEXT18,93,"1"+T$,1,2,19 


IFLEFT$CM$, 12="J"THENTEXT19, 28, "SMITTELWERT = "+STRSCMW,1,1,8 
IFLEFTECH$, 13=" I" THENTEXT18. 28, "SSUMME = "+STRFCMEI,1,1,8 


HI COL 
LINE48,159,49,48,1 
LINE315,159,3159,49,1 
LINE48,159,315, 159,1 
LINESS,45,49,49,1 
LINE42,45,40,48,1 
LINES13,45,315,48,1 
LINES17,45,315,48,1 
2=9 
FORF=139T0SBSTEP-29 
LINE3S,F,41,F,1 
LINES14,F.317,F,1 
2=9+20 

LOW COL 7,14,14 
TEXT9, F-6, STRECH) ’ 1, 1 ‚3 
CHAR18,145.37, 1,1 

HI COL 

NEAT 
FÜRD=1TOA:ACDI=ABS<ACDYI :NEXTD 
IFFRAC(CA/ZISIOTHENB=CINTCA/2II+1:ELSE:B=(A/2} 
FORD=B+1 TOR 

H2=59+(0-E)#25 


84 Nam 





Listing für die grafische Darstellung von Zahlen (Fortsetzung) 


Zeilenorientierter Ablaufplan zu »Chart 1« 


unter der X-Achse angezeigt 
(negative Werte wieder rot), 
ansonsten nur oberhalb der 
X-Achse, Nullwerte werden 
ohne Bezeichnung als leeres 
zweidimensionales Recht- 
eck gezeichnet. 

Bis zu 20 Werte werden 
zweireihig hintereinander 
dargestellt und zwar nur 
oberhalb der X-Achse. Das 
Vorzeichen der Werte (posi- 
tiv oder negativ) wird nur 
durch die eingeschriebenen 
Werte kenntlich gemacht, 
wobei negative Werte wie- 
derum rot erscheinen. Die 
Reihenfolge der Werte läuft 
von links vorne nach rechts 
hinten. 
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| 


3029 
23939 
32044 
3958 
39659 
3978 
39809 
3999 
3992 
3995 
3937 
3199 
3118 
3128 
31380 
3142 
3330 
3342 
3410 
3415 
| 23420 
2440 
3459 
3468 
2470 
34502 
3500 
3519 

>3520 
3549 
3399 
3318 
3329 
32338 
Sana 
23338 
3340 
3359 
39359 
3978 
>959 
4aga 
4938 
40659 
42909 
4128 
4158 
4139 
4210 
4278 
4239 
4398 
339 
4340 
4345 
43352 


ne 
zw 


43660 
4389 
4330 
4399 
4420 
4440 
4458 
4452 
4455 
4459 
4450 
4465 
4470 
4430 
4540 
4559 
4668 
4779 
47539 
4738 
4309 
4395 
4319 
4315 
4529 
4322 
4324 
43265 
4328 
4838 
4832 
4334 
43408 


4358 





ee 


[ 2520 reck2-ı6, 155-AD),12,AXDD 1 

LINEH2-15, 159, H2-5, 159,8 
LINEH2-16, 156-ACD) ,H2-19, 158-ACD?, 1 
LINEH2-4 , 156-A<D),H2+2,159-ACD2, 1 
LINEH2-4, 156,H2+2, 159,1 

LINEH2+2, 159,H2+2, 159-ACD) ,1 
LINEH2-19, 1598-ACD) ,H2+2, 159-ACD) , 1 
LINEH2-3, 159, H2+1, 159,9 
IFACDI=BTHEN3348 

IFCT/ACDIII7STHENS348 

IFX<D}=9THEN3348 

PAINTH2-15,157-RCDD,1 

FAINTH2-3, 155-ACD3 1 

PAINTH2-3, 154, 1 

IFXCDY<BTHENLON COL 2,14,14 
TEXTH2-29, 49, LEFTECSTRSCK(DII,39,1,1,3 
IFXCDI<OTHENHI LOL 

NEXT 

FORD=1TOB 

H3=59+1#25 

RECH3-26, 173-A(I) , 12, ACD),2 

LINEHS-26, 178-ACD) ,H3-28, 172-RD3,2 
LINEHS3-14, 173-ACD) ,H3-3, 172-R(D),2 
LINEH$-14, 178,H3-8, 172,2 

LINEHS-8, 172,H3-8, 172-A(D),2 
LINEH3-29, 172-R£D) ,H3-8, 172-R(DI,2 
IFXCDI<ATHENLOM COL 2,14,14 
TEXTH3-35, 131, LEFTFCSTRECKIII, 32, 1,1, 
IFXCDI<ATHENHI COL 

NEXT 

Ht=" MNENUESN 
LOM COL11,14,14 
TEXT3, 191, "13"+H$,1,1,8 

HI LOL 

GETZ$: IFZ$=""THEN339O 
IFZS<C>"M"ANHDZES>D"K"ANDZSS>"D"ANDZS<D"C"THENSIRG 
IFZ£="M"THENCSETR:GOTO220 

IFZ£="D"THENGOT04999 

IFZS="K"THENGOTO1929 

IFZ$="D"THENCOPY:GOT03349 

END 

REN EREERREHFFFETEEEEEFEREREREERN 

REM #e DIAGRAMM FFERHHH 
REM er 


m 


Y= 

FORD=1TOA 

IFABSCKCDIIDTTHENTFSABSCHCDY) 

NEXT 

GH=Y'/36 

HIRES1,14 

LOW COL11,14,14 

TEXT18, 19, "M"+T£,1,2,19 

IFLEFT$CHM$, 1?="I"THENTEXT19, 38, "MITTELWERT = 








-UCHEN=* TIAGRAMM=T 2 -OPr=m" 








CC,DB: 


Hals HlHnERE av: nn, 
a 


"+STRECMWI, 1,1, 


IFLEFT$SCM$, 19=" I" THENTERT19, 38, "SUMME = "+STRECMEP,1,1,9 


HI COL 

IFMB<>DMCTHENG=SS :GH=GH#2 
FORD=1TOA:CCDI=KCDI/GH:NEXTD 

LINESS. 159,59,59,1 
FORI=142T054STEP-8:LINE49, 1,51. I, 1:NEXTI 
LINE48,55,59, 580, 1:LINES2, 55,59,59,1 
FORI=SSATN24ASTEF 18:LINEI,149-C,1,151-C,1:NEXTI 
LINES®S, 159-C,259,159-C.1 

LINE245,143- 
FÜRI=Z9T019GSTEF28 
LOM COL 9,14,14 


0,259, 159-C,1:LINE245, 152-0,259,159-C,1 


Feidvariabie für Zahlenwerte 


Abfrage des Darstellungsmodus 

Titel der Tabelle, SERSV-Name 

Abfrage nach Mittelwert-Summen- 
Berechnüng 

Anzahlder Werte 

Schleifenvariable 

Sicherheitsabfrage, ob Wertein Ord- 
Kung sind 

Summe der Werte 

Süimmeder Absolutwerte 

Mittelwert 

Maxima der Feidvariabieri 

Abfrage nachdem Ausdrüuckder Werte= 
tabelle 

Abirage.nach der Speicherung der-Wer- 
tetabelle 

Wird-unter T3 abgespeichert 
Floppy-Fehlerkanal 

Abtragenach der Weiterführung des 


Programms 

Faktor zur Umrechnung der Feldyaria= 
bienindarstelibare Größe 
Schieifenvariable 
Darstellung der Prozentwerte-beim:Dia= 


gramm 
Textstring; unterste Zeile-beider Grafik 
Winkeiberechnung- beim Rüchen 
Winkel’beiKucher{Bogenmaß) 
"Winkelbeim Küchen (Bogenmaß) 
Koordinaten zur Berechnung-der Zahlen 
beim Kuchen 

LEETS vom Textstring (Kuchen) 
Konstante für die Negativdarstellüng 
Laufyariablen beim Balken 
Laufyanablien.beim Balken 
Eoordinaten {pos.-neg-;beim:Balken 
Koordinaten-beim-Balten 


| 


Variablenliste von »Chart 1« 





Strichdiagramm 


Nach dem Zeichnen des 
Koordinatensystems — auch 
hier wird bei negativen Wer- 
te die X-Achse nach oben 
verschoben — wird der Dia- 
grammzug eingezogen. Die 
Werte werden unterhalb der 
X-Achse in derüblichen Wei- 











SERIE EEE se zweireihig eingeschrie- 
FORI=135T0SSSTEP-20:2=2+2@: TEXT19, 1, STRECZ) 1. 1,3: NEXTI:CHAR28,159,37,1,1| Pen 

SOTOs4S4H 

Z=-120 . 
FORI=140T045STEP-9:2=2+29: TEXT18, L,STRSCZ),1,1,8:NEXTI:CHAR29, 155, 37,1,1 Kommandozeile 
HI COL 

FÜRD=1TOR-1 a 
LINE<S59+D#18)-18, 158-C(D)-C, (59+D#19) , 159-CCD+1>-C, 1 Durch Betätigen der jewei- 
KENT ligen Taste können die Werte 
IFMOCIMBTHENLL=2:ELSE:LL=3 entweder als Kuchen, Bal- 
LOIOP Listing für die grafische Darstellung von Zahlen (Fortsetzung) | Ken oder Strichdiagramm 
N ATI dargestellt werden. Ferner 


IFXCDI<BTHENLON COL2,14,14 
TEXT27+D#19, 168, LEFTSCSTRECKCDII,LLY,1,1,8 
IF$CDI<BTHENHI COL 

EXIT IF D>=R 

LOW COL3,14,14 

IFACD+1><ATHENLON COL 2,14,14 
TEXT27+CD+1)#19, 172, LEFTSCSTRECKD+H1 II ,LLI,1, 1,8 
IFXCD+1)><BTHENHI COL 
EXIT IF D+1>=f 

HI COL 

END LOOP 





mer....2 ınn8 


kann mit der Taste M zum 

Hauptmenü zurückgesprun- 

gen werden. Außerdem bie- 
| tetsichnoch die Möglichkeit, 
| den Grafikbildschirm aus- 
drucken zu lassen. Diese 
Hardcopy-Routine istaufden 
Epson RX-80-Drucker abge- 
stimmt und muß bei Verwen- 
dung eines anderen 


SJıR-ra OR 


Grafische Darstellungen 





4322 
4392 
4395 
4997 
4319 
4339 
4340 
4359 
4359 
4379 
4339 
5999 
5919 
52929 
5939 
5969 
5299 
5199 
s129 
5159 
5169 
5188 
s219 
S249 
5279 
5339 
52659 
5339 
5420 
5399 
5539 
5558 
5569 
5579 
55239 
Se2d 
5529 
5649 
3659 
5552 
S855 
3668 
5723 
5728 
5739 
5329 
5339 
53659 
5339 
5209 
5319 
5739 
3359 
5358 
soa8 
7999 
Ssaag 
3933 
3959 
s120 
s125 
8139 
3130 
5129 
5195 
8197 
s2o8 
s219 
3399 
Sao 
3318 
3920 
3925 
3239 
3040 
3045 
sasa 
2992 
9199 
3119 
9129 
149 
141 
142 
2144 
3145 
91483 
3159 
9152 
3159 
9139 


H$=" MENUE=SN /UCHEN=? IALKEN=SI 2 TDPYEE" 
LOW COL 6,14,14 

TEXT3, 183, "3"+H$,1,1,8 

HI COL 

GETZ$: IFZ$=""THEN4919 
IFZS<CH"M"ANDZES>D"K"ANDZESI" B"ANDZSSD"C"THEN4910 
IFZ£="M"THENCSET9:G0T0228 

IFZ$="B"THENGOTO2998 

IFZ$="K"THENGOTO1998 

IFZ$="C"THENCOFY:GOTO4319 

END 

REM HTHT THE EN 

REM#k#### WERTEEINGABE FERFEERE 
REMEFFFEHHEHTHNEHHTHNÄHHHHFHEHTHET IHN 

PRINT"T4 WERTEEINGABE 
PRINTAT(S,S2"TITEL DER TABELLE" 
INPIUT"TIBBBRRBERDRRBBRBEDRDHDDBDRBRBI" ; T$ 
IFT$=""THENS@39 

PRINTAT(S,S>"MITTELWERT UND SUMME" 
INPUT"TPBRBPBRBRbRBRDbDbRBhhbhDaDRR" ; 1% 
IFLEFT$SCM$, 13<>" J"ANDLEFTSCMS, 1I<D"N"THENS129 
PRINTAT(S,11> "ANZAHL DER WERTE" 
INFUT"TIRBBRDBDBbBBEPnDBBDRDBbRBRBBRI" ; is 
A=VALCAS? 

IFA<ZORAIZYTHENPRINTAT<S, 137 "MAXIMAL 29 WERTE" :GOTOS1S9 
FORD=1TOA:XCDI=100#&% CD) :XCDP=INTCRCDYI :XCDI=XCD)/109 
PRINTATCS,17I"WERT"3DE" =" 
INPUT"TIBRBDBDDDBDREBRBBBBREDEDBI" ; X <TD) 

NEAXTD 
PRINT" 
PRINTAT(S,3IT$ 
PRINT"R" 
FORD=1 TOASTEP2:XCDI=100#X CD) :XCDI=INTCACDY):8CDI=XCD)/198 
KCD+12=186#%XCD+12 :XCD+1>=INTCALD+1I) :XCD+19=XCD+1) 7199 
PRINT" WERT"<DI"="LEFTSCSTRECHCDY), 7) 


WERTETABELLE m 


PRINT" 7 MERT"CD+1I"="LEFT$SESTRSCHEDH1)),7) 
NEXT 
PRINTAT(6,17>"WERTE IN ORDNUNG ?" 


GETUS: IFUS=""THENSESO 

IFLEFT$CHUS, LISD" I"ANDLEFTSCHS, 1I><D" N" THENSS42 
PRINTAT(26,17>UE 

IFLEFT£CHS, 13="N"THENPRINTAT (8, 173" 

GOT083298 

PRINTAT(5, 19>"MITTELWERT = ";Mu 
PRINTAT(6,29)"SUMME = ";MB 
PRINTAT(6,22>"WERTETABELLE AUSDRUCKEN" 
INPUT"TIBRDDDERBRRRBDRRBEBBRDBBIhRhDRBI" ;.& 
IFLEFTSCYE,L1ISD"J"ANDLEFTECYS, 13><D"N"THENSS99 
IFLEFT$(Y$, 1)=" I" THENHRDCPY 
IFLEFTS(Y£,1)="N"THENS319 
PRINTAT(&,23)"WERTETABELLE SPEICHERN" 

INPUT" TIBRRBRBBDRRDRRDRBRBEBEhhERAhRaD]" ; 5% 
IFLEFT$(S$, 1>CI"IJ"ANDLEFTSECS$, 12<2"N"THENS3F1Q 
IFLEFT$(S$, 13="J" THENSCRSY2,8,2, "@:"+T$+" 3,4" :GOSUBIR9 RETURN 
EEE ESSBRAL IS IISTHENBETUEN 

EN 

REM 

REMKEFF SUMME UND MITTELWERT ##% 

BREMER 

ME=& 

FORD=1TOA:MC=MC+ABSCKCDY I NEXT 

FORD=1TOA:MB=MB+CXCD)) :NEXT 

MU=MB/R 

MU=MUE1999 : MU=INT MU) :MU=MU/120G 
ME=MB#1090:MB=INT (MB) :MB=MB/1900 

MC=MC#1999 :MC=INTCMCY :MC=MC/100Q 

IFM&="N"THENSSSB 

G0T05728 

END 

REM ###* FEHLERKANAL Hark 

DFEN15,8,15 

INPUT#15, AR, BB$.CC,DD 

IFBB=STHENCLOSE15:RETURN 

FRINT"72" AA, BBS,CC,DOD 


":G60T05339 


GETAS: IFAS=""THENS249 

LLOSE1S 

RETURN 

REN BR Listing für die grafische Darstellung von Zahlen 


REM #*%* LETZTE GRAPHIK Hakdakikkr (Schluß) 


REM Kr 
[SET 2 

GETZ$: IFZ$=""THEN9149 
IFMC=OTHENI168 

IFZS<C>" M"ANDZSSD" B"ANDZESI" D"ANDZSSI"C"ANDZS<>"K"THEN9149 
IFZ$="M"THENCSETS: GOTO229 
IFZ£="D"THENGNTN4299 
IFZ$="B"THENSOTI2099 
IFZ$="K"THENGOTO1902 
IFZ£="C"THENCOPY:GOTOF149 
LCSETB:GOTO228 

END 


RA aaa 





Bild 4. Werteschwankungen lassen sich 
mit dieser Diagrammform am besten 


aufzeigen 


Druckers in geeigneter Wei- 
se abgeändert werden. 


Farbwahl 


Zur Farbwahl muß gesagt 
werden, daß sie — es wird ja 
in Hires-Grafik gearbeitet — 
ein wenig eingeschränkt ist. 
Die Auswahl muß in folgen- 
der Form durchgeführt wer- 
den: Hires Vordergrund 
(VG), Hintergrund (HG) 
= > Low col VG neu, HG, 
HG = < col = < Low col 
VG neu, HG, HG und so wei- 
ter. 

Dabei wird die neue Vor- 
dergrundfarbe bestimmt. 
Man muß jedoch trotzdem 
noch aufpassen: Wenn Zei- 
chen verschiedener Farben 
zu dicht aneinanderkommen 
oder sich überlagern, so 
führt daszu Farbvermischun- 
gen oder völlig anderen Far- 
ben. 

Eine Ausführung im weni- 

ger problematischen Multi- 
Modus erwies sich jedoch 
wegen der Zeichengröße als 
nicht durchführbar. 
Das Programm läuft ohne 
Änderungen auf dem Com- 
modore 64 mit der Basic-Er- 
weiterung »Simons Basic«, 
derFloppy 1541 unddemEp- 
sonRX-80. Falls die Datasette 
verwendet werden sollte, 
muß der SCRSV-Befehl fol- 
gendermaßen abgeändert 
werden SCRSV 2,8,2..— 
SCRSV LLL 

Ansonsten dürfte das Pro- 
grammmit kleinen Änderun- 
gen auch mit jedem anderen 
grafikfähigen Drucker lau- 
fen. (Andreas Funk) 








Annnahr Litemi ınna 


Z iel des Spiels ist es, mit ei- 
nem Motorrad möglichst 
unfallfrei eine Straße ent- 
lang zu fahren und dabei so- 
weit wie möglich zu kom- 
men. Dies wird durch Steine 
auf der Fahrbahn und Stra- 
ßensperren erschwert. 
Nach Erreichen von 2000 
Punkten gelangt man in die 
nächste Schwierigkeitsstufe, 
die dann schon etwas mehr 
Geschicklichkeit verlangt. 
Die Anzahl der Hindernisse 
und die Geschwindigkeit 
steigen von Spielstufe zu 
Spielstufe, wobei maximal 
drei Stufen durchfahren 
werden können. 

Ein Bewegen des Joysticks 
in Richtung »vorwärts« er- 
höht die Geschwindigkeit, 
die bei Richtung »zurück« 
wieder gedrosselt wird. Der 
Punktestand steigt natürlich 
proportional zur Geschwin- 
digkeit. Eine einprogram- 
mierte Mindestgeschwin- 
digkeit verhindert dabei das 
Aufkommen von Lange- 
weile. 

Der Kern des Spiels ist 
vollständig in Maschinen- 
sprache programmiert, wo- 
durch eine Spielgeschwin- 
digkeit erzielt wird, die mit 
Basic nicht zu erreichen wä- 
re. Lediglich Start und Ende 
einer Spielstufe sind in Basic 
geschrieben. 
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1000-1040 Einlesen des Sprites 
1050-1880 Ei 


i cheteils: 
esen des Maschinenspra = 
$C000 a sahleiis, hier wird ununterbrochen 


Straße erzeugt. 
$C003 Bewirkt einen Scro 
eh 


H Punktestand proportional zur Ge- 


druckt. 
öht und dann ausge 
a für den nächsten Level 
-Programm zurückge- 


l-Down der unteren Bild- 


C009 Hier wird der 
: schwindigkeit e 
Wenn die Score 
erreicht ist, wird ins Basic 
sprungen. KR 
Hier wird das Motorra 
eo. ah der Joysticks gesteuert, ebens 
quenzen des Motorgeräusches. 
$C063 Straße einen Schritt geradeaus. 
$C120 Straße einen a a 
Be einen Sc re k BEN 
ne ir wird das Haus ausgedruckt, das imme 
fällig erscheint. 
Verzögerung. 
a Erzeugen verschiedener Hind 
generator im SID. ne 
1590-1600 Einlesen der Schlußmelodie. 
1610-1860 Kaltstart. 
1870-2080 Warmstart. 
2090 Einsprung Ins N 
2100-2130 Test auf Kollosion © 


nliai des SID. . ; 

9140-2220 Initialisierung \odie, Laufschrift bei 
i mit Schlußmelodie, 

en ah Sprung an den Programmanfang. 


prechend der Bewe- 
o die Fre- 


ernisse mit Zufalls- 


Maschinenprogramm. 
der nächsten Level. 


Die einzelnen Programmteile von »Hot Wheels« 


Es geh, 
rt » 
den hö; di; Vieg = 
Sauber z elstufen ck dazu, jn 
Noch ah . an y “ Kirn 
2) 
Fahrean auf dernissg , f en 
ens e 
st Man mei. 
urzheim Qualitäg ads 


Während desSpielsist der 
Bildschirm in zwei Teile ge- 
teilt; derobere Teil stelltden 
Horizont sowie den Spiel- 
stand dar, während im unter- 
en Teil das Bild ständig 
durch das Maschinenpro- 
gramm nach unten gescrollt 
wird. Der Verlauf der Straße 
wird durch einen Zufallszah- 
lengenerator bestimmt, 
ebenso das Auftreten der 
verschiedenen Hindernisse. 
Doch damit genug der Vor- 
rede. Sie können das Pro- 
gramm jetzt eintippen, aber 
vergewissern Sie sich vor 
dem Starten bitte vom ord- 
nungsgemäßen Sitz Ihres 
Sturzhelms! 

(Bernd Günther) 
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853 Zähler für Be che —- jssen 
EN Zwischen@P für nächste | on Hinderm 
.86 .Gre uftre 
860: Score! dasÄ a 












o 
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870,871 Baus er Punktestafl 
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lass DATAB, 18.0.0,16,0,0,16.0.0.322,0,1.1 
l1gim TIATAIES.64.16.,32,16,128,32.3.9,48,0, 
1828 DATAR,@,252,0,0,252,0,09,2592,0,0,458,4 
leı2E DATA@, 16.0,5,16,0.0,08,0.0,00,0.0,0,0,8 

19459 RESTOFE: FÜRI=8936T0953: READA:POKEI,A:NEKXT 

1a-0 DATAGTE.131,193,976, 012, 192.076,029, 192, 976,214, 194, 162, 008, 181, 081,157 
1B60 DATAE?Z, 003,139,124,195, 149, 01, 202,208, 242, 169,039, 177, Mae, 145, 008 ,.177 
1870 DATARB2, 145,004, 136, 016,245, 162,987, 181. 081,055, 233,940, 149, aa, 176,004 
1DS0 DATAZZZ, 214, 001,202, 202, 202,916,239, 165,089, 201, 095, 268.218, 165, 088, 201 
1924 DATAEIZ4,208,212.162, 098,189, 972,003, 149, 01,202, 208, 248,096, 162,939, 172 
1150 DATAGE4,063,157,024, 217,169, 160, 157,024. 095, 292, Ml6, 242, 036 ,932,922,192 
111m DATAIES,E12,169,6012,024, 109, 065, 092,170, 169, 232, 157,924, @05, 202,136, 208 
1120 DATAZ43.6896, 153.068, 141,063. 224,173, 061,228, 141,866, RA3, 162,084, 169, PAR 
1132 DATA157,867, 063,078, D66, M83, 062, 867,003, 202,016, 244, 169, aa, 141,003, 220 
1142 DATA173,059, 0013, 208,912, 162,913, 206, aaa, 208, 205, 223, 206, Ale, 208, 202,208 
1152 DATAZ245.172, 065, 003, 208,813, 162,013, 238, 008, 298, 208, 083, 232,916, 298, 202 
l1cG DATAZAS, 245,173,6071, 002, 288,935, 173,091, 298, 2@1, 130, 144,922, 206,992, 2092 
117B DATA1EZ,811, 206, 021, 2a8, 22, 208,250, 238,082, 003,024, 172,933, 983, 195,020 
1120 DATA141,083,0603, 144, 203,238, 234,903, 172,978, 993, ZaE, 235,173, @21, 298, 2a1 
1130 DATAZZ1.176,028,238, 032, 003,162,011,238, QA1. 208, 282, 298, 258, 206, 982,093 
1290 DATAGSS, 173,083, 003. 233,920.141.083, 203,176, AR, Za6, 224,093, 172,092, A03 
1210 DATA141,991,212,173,983, 063, 141,097.212,173. 024.093, 141,808, 212,996.2238 
1226 IATASSS. 092,032,082,132,169,912,024, 199, 455,003, 170, 169, 895, 157,924, 095 
1230 DATA2@Z,169,011.169,032,157,924,005, 202,136, 208, 249, 169, 223, 157,924, 905 
1245 DATA206, 065, 003, 096.032, 082,192, 1659, 012,024, 109, 965, n93, 178,169, 233,157 
1259 DATAgZ4, 905,202, 168,011, 169,932, 157,924, 905, 242,136, 202, 249,169, 105,157 
1222 DATABZ4., 005,096, 169, 067, 141,987,092, 162, 099, 168, AAB, 138,072, 152,972,932 
1278 DATAG1Z2,192,173,031, 203, 240,004, 104,976, 109,194,932,121,192,173,931,208 
1220 DATAZ4E,094, 194,076, 199, 194,032,099,192,932,913, 195, 184,162, 194, 170,189 
1220 DATALEZ,194,153,052, 905, 232,139, 102, 194.153, 992,217, 232,200, 192,008, 208 
1320 DATA237., 206,087, 003, 173,087, 093, 2603,189,976,194, 193, 022,944, 195, 172.955 
1310 IATASEZ3, 201, 065,208, 903,076, 104,193. 224,224, 224,172,927,212,249,251,192 
1320 DATASIE, 176,247, 174,027, 212, 224,085, 176, 450, 144, 035, 093, 173, 965, a92, 056 
1320 DATAZ27. 835,003, 144.237, 1592,972.032,214,194,032, 012, 192,172,921, 208,202 
1340 DATA11S,632,121,192.173.021, 208, 209,119, 206, 0655, 903, 032.032,193,0932,913 
1229 DATA195. 104, 168,136, 208, 221,076,181.192, 224,174, 176. 035, 152,972,922,214 
1360 DATA124,032,6012,192.173,931, 208, 283,076,932,121,192, 173,021, 208, 208,958 
1372 DATADZZ,439,192.922,013,195, 104,163, 136,208, 224,076,181,193, 149,085, 002 


u Dal 


1320 DATA173,065, 093,024, 199,085, 093,176,148, 201,025.176,144,152.972.032, 214 
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13>20 DATA124.032,012,192.172,921. 208, 205,025,232,121,192,173,931, 208, zus, E17 
1420 DATRZ33. 065. 002, 6022.071.193.0322.013.125. 104, 165,136, 209, 221, 076,131,193 
1412 DATA194.096, 160,005, 160. Az, 160, 0A, 1650, Bez. 16, az, 160, a, 16, 15h 
1422 DATAAMS, 168,005, 160, Bez, 169, Aa, 122, aa, 16, ARE, 162, Az. 16, Bas, 162, aa 


1434 DATAIEE, 045, 160, Bez, 071, ads, 160. az, le, ad, 091, Aa. 160,002, 1650, en, 1650 


1448 DATARES, 160, AA2. 160. 082. 160. a2, 169, Aa2. 150,02, 160. 002. 160, Ag, 1a5, Ans 
1458 DATABSZ. 001,032, 991,032, a01.932,981.022. Al, 932, 01.995, 985, 160, 095.185 


1422 DATAREAS. 032, aa], az. 2a], 222, Ea1,032, Aal, 095, Aa, 16, Aa, 160, 00, SE. 


nt Va I Fa ET u Fa ra 





1479 DATALER, 005, 159,095, 160,000, 159,095, 169, 0815, 150. 095,162. 090, 160.033.024 
1433 DATAGS2, 019,229, 173,112, 0093,024, 105.018. 144.093. 238.113. 093,.095.237,092 
1499 IATAGEZ.141,112,002, 176, 003,206, 113,903, 173, 113,9@3,174,112,093,295, 102 


1524 DATAGEZ. 205,009. 236.102, 093,144. 004, 104, 124, 104, 096,032. 205,199. 096,17: 
I1S1e DATAS>Z,223,141,093, 002,169, 201. 141,094, oa, 206, 0395, 003, 200, 251. 200.024 
1320 IATASO3, 208, 245, 2065, 033,002, 208, 236. 096,173:.927,212, 281.903, 176,923,173 
15220 DATASSS, 003,105, 004,170, 169,092, 1659, 127, 157,924, 005, 169, 992, 157,024,217 
1540 DATAZ32, 126. 208, 242,096, 205, 104,063, 176,949. 173,027,212,041,015, 201,001 
15350 DATA244, 247,163, 173,027, 212, 201,003, 144.249, 201,012. 176, 245, 109, 0655, 063 
136589 DATA17,152,157.024,217, 173,027, 212,201.128, 176.098, 169, 8098, 157, 024, 065 
15378 TATAS7E, 124,135,1659, 051,197, 024 ,005,996,152,219, 192,219, 152,997, 132,007 
1558 FORI=49132T052952 READA:POKEI.A:HEHT 

15720 DATA1E3,17,237, 21,20. 26.:69,29,3,31,69, 29,29, 26, 237,21,103,17 

E00 FORI=S1TOF:RERDALCEIS.AZEIICNEHT 

1619 Y=33243: POKEW, 150: POKEW+1, 215 

1625 POKEY+23,1:FOKEV+Z9,1 

1630 POKEW+23, 1: FÜREW+37, 12: FOKEW +33, 0 FOKEW+39,7 

1545 FOKEZA4E, 14: FOKES3ZSL,Z 

1559 PEIHNT"IIM"; 


I, 


15589 PRINT" vn vu. nm 

1570 FRIMT" ga gaagm gm a" 

1650 PRINT" am gay I — a" 

1622 FREIHT" 5 u am a" 

17a PRIHT" ga gay am a" 

17109 PRINT" aa ug am a" 

1722 PREIMT" rina3 ww P':PEIHT:FREIHT 
1728 FEIMTT wm om vum mr o3er m 
174g PRINT" 38 geaızm gay am gm 
1750 PRINT" a8 gaagm ud am gu 
Irsa FEIN" ge gaıgmaıa na ww % u. 
1770 FRINT" gmageaegmygm augm am gm 
1750 PFREINTT" geamgmam aeg am am 
17529 PRINT" 4 mr 2 2 ww. 
13522 FRINT:PRIHT" C3 Br BERND GUENTHEFR":PRIHT 
1312 PRIHT" FRESS JOFSTICK BUTTOH" 


1328 FÜKEY+Z1,1:POKES3Z,S: FOKE38B, 8: POKESS1,9:LE=1:'MR=3:POKE193, 0 
1224 FORESFESE,T 

1542 POKES32S,2 

1359 GETAF: IFA=""THEH1S3@ 

15658 POKEY+23, 0: FOKEY+Z3, 0 

1570 IFME=ETHEHNZEZE 

13520 FOKESEB, ©4-LEI+12:PÜKEN+Z1.8 

1520 IFLEAZTHEHL1=LE#2098: FOKESTB. LIAHL2SS:POKES?L, 117256 

1396 PÜKESTZ,LE#3E: FOREW, 150: POKEY+1. 230: POKE333, 14 

1310 PEINT"TE"; :POKES3281, 1: POKES3238, 7:51=394272: POKEW+31,0 


1320 PEINT"3 HIGH= SCORE= " 

1322 PRINT" = ame 4 m", 
1749 FEINT"3 m a | = om", 
13524 PRIHT"4 m a m a = "5 
1369 PREIHT"4 = a 3 m"; 
13782 PRINT" u am a m"; 
1,3540 FRINT"4 m; 


1324 FREINT" Sa" TABEFSMIDEESTRECHIS. 2: 

zaag FREIHTTARC1ESSFORI=SITOME:PRINT"@ "5 :NEAT 

20129 PRINTTABE33>MIDECSTRFCPEER SS +25S#PEEK. 3177, 
za2a POKESI+1S, 109: FOKESI+15,129 


rO 
2 
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28:38 
2248 
2258 
zasE 
2270 
230 
ZUIET 
21a 
2118 
21208 
2128 
2148 
2159 
2168 
zire 
2150 
2138 
2208 
2218 
gez 
2232 
2244 
2258 
2268 
zere 
2250 
2278 
23a 
231 
2320 
2320 


FKEADT. 


GOSUBZ2148 

57543155 

FORI=1T012:573429159:° NEXT 

FEIMT" IMST ERIL_E"EL"LE 
FORI=1T018:5Y75349155:FORJ=1T019@: NEAT: NEXT 

PÜKEW+21,1 

PREINT"3",:57547152 

IFPEEF. 1839) +256#PEEK 331 <LE#ZASSORLE=3THENGOSLUBZZ9R : MR=MR-1:GOTO1LEFO 
IFLESSTHEHLE=LE+1: IFLEASTHENI1S7E 

PLKES?7A, 253: PÜKES?1, 255:G0OT01370 

EHD 

PORESI,@:FOKESI+1,3:POKESS3@.3:POKESI+4,9 
POKESI+S, 255: FOKESI+S, 255 

FOKESI+7, 89: POKESS1, 20: POKESI+3. 0: POKE352,@'POKESI+11,9 
PLIKESI+12, 255: FOKESI+13, 255 

POKESI+4,33:FOKESI+11,123 

POKESI+Z4, 133: RETURN 
POKESI+4,8:POKESI+11,0:FOKEW+Z1. 0: POKESI+1, 59: FOKESI+S,8 
POKESI+6, 250: FOKESI+4, 123: POKESI+4, 128 
FÜRI=1T0I228: FOKEW+21, 2: POKEW+Z1.1:NEXTI: RETURN 
POKES3239,13:POKESI+11, 0: POKEV+21,9:FRIHT"T" 
FORI=1T03:FOKEST,ALCIS:FOKESI+L,AZEINPOKESI+4,17 
:FORI=1T0299:NEAT:POKESI+4., 165: HEHT 
IFFEEKLS22M)+256#PEEK (331 > HITHEH19A@ 
HI=FEER. 330) +256#PEEK (3915 

AN ner 
HE=AE+"HIGSHSCORE"+AS$: POKESF3Z31. 1: PRINT" MOTTO" TABCLSOHI 
FÜRK=1TO3:FORI=1T053 

PREIHT" SIEIMTMIRISDeTeN " MIDEAE, I. 4 

PRIHT" SIMTSIKDDTEIEDE" MITDIEOAF,6A-T, 40: 
FORT=1TO1@9: NEXT: NEXT: NEST: GOTOLBEE 
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n dieser Stelle ist auf die 
mehr oder weniger kom- 
plizierten Speicher- und La- 
devorgänge des Programms 
hinzuweisen. Das Programm 
besteht aus drei Teilen (Li- 
sting 1 bis 3), welche in der 
Reihenfolge Grafik — Ma- 
schinensprache — Haupt- 
programm eingetippt und 
auf Kassette gespeichert 
werden sollten. Um endlich 





der gleichen Reihenfolge 
geladen und gestartet wer- 
den. Haben Sie den Lade- 
vorgang beendet, wird das 
Spiel durch die Taste »0« 
oder durch den Aktions- 
knopf des Joysticks gestar- 
tet. Das Programm kann mit 
Joystick oder über die Tasta- 
tur gespielt werden. Ist kein 
Joystick vorhanden, lenken 
Sie Ihr Männchen mit folgen- 
den Tasten: 

A: oben; Z: unten; B: links; M: 
rechts; N: Sprung. 


VG 20 Grundversion 





Sie sind in Gestalt eines kleinen Männ- 
chens tief unten im Kerker eines alten 
Schlosses gefangen. Ihr Ziel ist es, aus 

diesem Schloß zu entkommen. Dazu 
müssen Sie natürlich erst einige Hinder- 
nisse überwinden. 












Beim Vorhandensein ei- 
nes Joysticks dient der Ak- 
tionsknopf als Sprungknopf. 








spielen zu können, müssen 
alle drei Teilprogramme in 
vi HER 
“ WERT 15: READY an 20,72, 78 
" . & " nu 431r ne sh eu 
r Br pP ui! NEAT 1 7 n,25 6: PER 
2 en Rt rorteT 1sett Bun En NERT Ds 16,62,9%: z ae 
\ Son Zac a‘ : 1. ’ u 2) N 6: 
1a POrRE- role a: 66 126,0: - 5,282 94,56. 
3a Forelle toraset2t 2126,66 124,92 8,81 
Er, =745 125,6 a,28:% ee, 99 4 
gs FORT 26,66 2,2839 u6,56,39 130,299: 
3a IMTAE®: ea 4 
1242 56, 563° BT [a 22,36 96: 4° 
31 zarte 5 4 a, „an, 2a, er . 5,126: 1 
28,28: 20, ,72,162 „ z ne u are : a7, 1er 
a2 DA BT PR + ,63, 299° 20,0, 187: 
6,0 aa, u a a6, 22t 
eh raTass 2 ne en . „uzrı 4@ geh 
3 ss 255, 254,299 _ 165,24, 69. 99 a, 2 
2a Tazsd, 23° 2,66, 19,213, 217° 294,253: 1 
ru ‚ 2. ’ 2 } 
Nas PR Ve. 119,219, 2 .124,56,36: 1° a3 
ass 26,2 e az, ew. 60: 3 254,252, 12 5 A 216,298: 2 
ee ” DL te er), 15,8: - 
3,00 126,199 255,129. 62 126,96, 9 4° u. 41 11,9, 110 181 5 0,9992 
na IA ee x 27: 2 ab, Ze, en ” = 
2 ne za, a ter en 4 54 ar 5 2,9,1,09 126 u en 129,255 8 
a ER PRBE Te) Dre 20 Ze 
ae ya za ze u 4,249 
re re 09,999: 9 ir 
a ar a, 235,299, 1a 17 
‚a,ı18 are er ae, et 141,34 
a3 DATE Pre 2,230 169, 209 
33,8 9,5 WER a9 
ei A = - E ’ Er zu 
aa pri are 5 8, 5 149 u 252:% 219,219:20° 
41,2 ” Sn = 
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Zu Beginn des Spiels befin- 


det sich das Männchen 
rechts unten vor seiner Zel- 
le. Nun kommen ihm Spin- 
nen entgegengekrabbelt, 
welche es überspringen 
muß. In der nächsten Etage 
rollen ihm Fässer entgegen, 
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Variablenliste zu »Ghost Manor« 


A Zeiteinheiten 
S Sektornummer 
H,LG,T Laufvariablen 


R Punktzahl 


U Richtung für Sprung 
L,K Bewegung der Beine 


und es muß mit einem Dop- 
pelsprung eine Fallgrube 
überspringen. Einen Dop- 
pelsprung macht man fol- 
gendermaßen: Man drückt 
die Sprungtaste »N« und kurz 
danach die Taste für die 


ZI, 144 


B,C Koordinaten des Männchens 

F In Reserve befindliche Leben 

M Zeigt an, ob Männchen gerade springt 
Q,W Zeichen hinter Männchen 


P,O Zeichen für Männchen 
X Speicherstelle für die nächste Note der Melodie 








‚za, 1859, =-, 





Richtungsangabe (B oder 
M). Genauso verfährt man, 
wenn man mit Joystick spielt: 
Aktionsknopf kurz drücken, 
danach Richtungsangabe. 
Ist auch dieser Teil ge- 
schafft, muß man aufpassen, 





Ghost Manor 





daß dem Männchen keine 
Steine auf den Kopf fallen. 
Hat man schließlich alle Ge- 
fahren gut überstanden, 
klettert man auf die Zinne 
und stellt sich unter den 
Schlüssel, wodurch das 
Schloßtor geöffnet wird. 
Nun werden die Fallgru- 
ben übersprungen, und man 
steht vor dem letzten großen 
Hindernis, der Brücke. Die- 
se Brücke schließt und öffnet 
sich periodisch, und es gilt, 
den richtigen Moment abzu- 


passen, um die Brücke über- 
queren zu können. Die letz- 
ten Fallgruben werden 
übersprungen, und Sie kön- 
nen aus dem Schloß hinaus- 
laufen. Geschafft! Eine kurze 
Erholungspause, und das 
Spiel beginnt von vorne, na- 
türlich etwas schwieriger. 
Die Sektornummer wird 
links oben, die Anzahl derin 
Reserve verbliebenen Le- 
ben (man beginnt mit drei 


Zar 105 














52 POKE6S9, 128:5787456 :GETA#' 
sa GOTOSR 
78 R=a:F=3:5=1 


120 
118 
111 
112 
113 
114 
115 
116 
117 
118 
119 
128 
121 
122 
123 
124 
125 
126 
127 
128 





IFAS="D"ORPEEK. (252) =8THENFE 












Er en 4 " 
my "Mea7: =32:0 \ m ö a NORM 
“ BB aB: a1 SS gen PRINT" BAMBBHFGHUST MAHNF: 

PRINT"TI": . our . Jr. 
PRINT A0DORE ei 
1,0 " 
ER INT"oe 3 1J2 angenon zanıı, 
PRINT"GE [rIE) Mi 
PRINT" ne ee: 
FRINT"E® Ge z 
PEINT"ERO trrrriede 2 
PRIHT"IBIT aue . 
FRINT"MBIT eoe N 
FPRINT"RBIT [EIRIE} ae 
PRINT"IID Gm GEGEN Bee 
PRINT" En 
Fein R BSRRR" 

INT"  BSRRON: 
ERTNTVLEKKAKKK KKKHKKKIKKKKH 3 
PRINT"L@E H H Bl 
a TTTM";:IFS>3 
BR . LIIIIITIIS"IFS 

SINTTHIIIIIIIITII FI13JI Ir: a 
PRINT RdI2L. 35: POKE7746418,24: IF LTHENFÜ 


123 
1238 
131 
148 
158 
155 
160 
165 
178 
138 
135 
135 
133 
138 
135 
za 
zıa 
22a 
23a 


2% 
in 


e 


258 


nd 
in 
Zu 


mm 
ein 
een 


MERLDEHEEEEEN 
S are 
wa 


"A" SCORE" SR" " FOKE3E 
"ga TIME" SA" SCORE"; 
een, 5+176: POKE77@1.F+175 






nycyag+l: IFK=TS@TTHENKeTAS1 
ES e878, 15: POKE36876 , PEEKAR) R=KFLEIFR 5% 


POKEB+L, 0: FOKEB+CT 
IFM=1ANDFEEK.B+C+E 
Eys6erag: IFFEEK“B+C 






[2 
A 


THEHR=R+38 
NOrRF 


EEKUB+L- 22) SSPTHENSEG 


TEPREKCB+C+22) =32ANDN=BTHENGRR 


FE+L=TIETTHENLDOR 
A=n-19: IFR=-IOTHENEO 
IFPEEK.{B+C-44=24THENSER 





I EITHENM=2: FOKEB+T ‚Mi POKEB+C-22,D BERRS :C 


7436: IFPEEKB+LI CDOANDN=1ORFEEKCBIT 


GETAS: IFAS=""ANDPEEK.\2S 


OKEB+L, WI: POKER+L-22, D: FÜKESSH 
RE ARORPEEK(231)=1S2THENZS® 










:5OTO13% 
SANDPEEF 





(251) ENzaRA 
ZU ZUORPEEK (251)=148THENS@E 
TFns=" B"ORPEEK(251 »=148THEN35 
N  SSTHENE _ 
RT MEDORFEEK (202 )=GANDIN=GTHENASR 


GOTO13E um 
IFWU=GTHEHB=E-EE 


IFP=7THEND=0+1: IFO=19THENO=S 


7 THENAFR 
Be 2: 50743 






IFPEEKÜB+C+Z2)=BTHENE=B+E 


Me] 


IFP=7THEND=O+1: IFO=1@THEND=S 


F=r7THEN438 
LEE 0-8: 601049 


. : mil Kal 
TFPEEKTBAC-1 P=@ORPEEKCB+T-19=32THEND 1 





"EIEBTE GC NEXTFORE 
SOKE35878, 15: FORG=2A9T0239: FOREIEBTS.G HE#T:FÜt 





A HEXT:GOTOSR 
1": EORT=1TDZBARCNERT BOTEN 
NPOKEBe+C, 32 B=B-22: 50T0S00 


za IFP=1THEND=0+1: IFO=4THENO=Z 
365 IFP=1THENASO 
m =1:Nn=2: 5070498 ö Las nn 
au EREEKBaC+1>=BORPEEK(B+C+1)=32THENO c+ 
410 IFP=4THEND=0+1: IFO=?THENO=S 
415 IFF=4THENdSO 
420 P=4:0=5: 5070498 
450 IFP=1THENU=T. _ 
235 ae B4C=a4-19=32THENB=E-22:N=1: 601097 
pa De Du I, 
46a GOT0130 
er | ne ya 
Pe EBEEKCB+C) | O=PEEK(B+T-22): GOTO130 
om FORHEITOG — las an: 
29 POKEB+L, 34: POKEB+L-22,33 
76,8 
592 NEKTH_ i 
=a3 POKEL3S: RER u 
318 KEseg73,9:F=F-1: IFF=@THENS3® 
Be Eee BURBBIGANE UVER 
230 POKEB+L-22, 22: BeB+Z2: IFPEEKCBAT) 
05 POKEB+C.D:POKEBAT-ZE,F 
Eid FORT=1TOLGM:NEXTGOTOEEO _ unrers 
Sag FOKE73EB, 32: FORT=1TD15@: NEXT /PORESZ 
sıa POKEB+C-44, 32: FOKE7TER+L, 32: FOKEFGE 


019 POKE36375, 2: POKE3EBTE.B' 
1929 GOTOS® 


READT. 


6 Siam 


6,32: FORT=1T015@: NEXT :FOKEFIE4. SE 
+6,32: 5010498 


4 
2 en een 
2: FORH=1S@TO2S@STEFZ2: POKES 
aaa POKE36376 SPOKE36878, 15: FORG=1 1018: FORHSISAT ER" 
‚am JEE3SSTH 4 





75,H:HEHTH.G 
5=5+1 :R=R+A: IFS=2THENF=FHL 








Leben) wird rechts oben an- 
gezeigt. Für jeden Versuch 
hat man 3000 Zeiteinheiten 
zur Verfügung. Hat man ei- 
nen Sektor geschafft, be- 
kommt man die verbliebe- 
nen Zeiteinheiten als Bonus 
gutgeschrieben. Nach dem 
ersten Sektor erhält man ein 
Extra-Leben, und es taucht 
ein Gespenst auf, welches 
den Schlüssel auf der Zinne 
bewacht. Noch ein Tip: 
Wenn Sie vor einem aus der 
Decke ragenden Felsen ste- 


hen, können Sie nicht sprin- 
gen. 


Nutzt die grafi- 
schen Möglichkei- 
ten des VC 20 

voll aus 








Das Spiel ist nicht ganz ein- 
fach, man braucht schon ein 
bißchen Übung, um den er- 
sten Sektor zu schaffen. Lei- 
der ist das Spiel nur in 
Schwarzweiß programmiert, 
aber eine farbliche Gestal- 


tung des Bildschirms war mit 
dem beschränkten Spei- 
cherplatz der VC 20-Grund- 
version nicht mehr möglich. 


Als Ausgleich werden die 


grafischen Fähigkeiten des 
VC 20 voll ausgenutzt. Alle 
Bewegungen von Figuren 
werden aus Geschwindig- 
keitsgründen von einem Ma- 


schinenspracheprogramm 
ausgeführt. 


(Frank Backes) 


Ausgabe 11 vom 16. 5. 84 






Dieses Bild zeigt, 


VE 20 eingreifen 
können, um einen 


nhand der SYS-Adressse, 

mit der Sie das Programm 
starten, sehen Sie, in wel- 
chem 16- oder 8-KByte-Block 
das Modul liegt. Zum Bei- 
spiel Start mit SYS 32592, das 
Modul befindet sich also im 
Bereich von 16384 bis 32768. 


Kopieren auf Band 


Stecken Sie das Modul in 
den Erweiterungsport und 
schalten Sie den VC 20 ein. 
Legen Sie eine Kassette in 
den Recorder und tippen Sie 
POKE 43,0:POKE 44,64: 
POKE 45,0:POKE 48,128: 
Save''(Name)",] 
ein, wenn das Modul ab 
16384 liegt, oder 
POKE 43,0:POKE 44,160: 
POKE 45,0:POKE 46,192: 
Save'(Name)''] 
wenn das Programm ab 
40960 gespeichert ist. 

Stecken Sie die für dasMo- 
dul benötigte 16- oder 8- 
KByte-Erweiterung in den 
Port, legen Sie die Kassette 
ein und laden Sie das Pro- 
gramm mit »Load«. So ein- 
fach ist das. Nach dem La- 
den starten Sie das Modul 
mit der gewohnten SYS- 
Adresse. 


Wo Sie am geöffneten 


Modulschalter anzubringen, 






Der Autostart bei 
Modulen ... 


Module, die im Bereich 
von 40960 liegen, werden 
beim Einschalten selbst ge- 
startet, wenn die Anfangs- 
adressen folgendermaßen 
belegt sind: 

40960 low 

Startadresse des Pro- 
gramms 

high 

low 

Adresse bei Restore 

40963 high 
409564 65 
40965 48 
40966 195 
40957 194 

40968 205 =M 

Während eines Kaltstartes 
werden die Adressen von 
40964 bis 40968 nach der Zei- 
chenfolge "a0CBM" abge- 
sucht und das Programm ge- 
gebenenfalls gestartet. 

Wenn Sie über eine Spei- 
chererweiterung in diesem 
Bereich verfügen, manipu- 
lieren Sie doch einmal diese 
Adressen, lassen Sie die 
Startadresse auf ein Maschi- 
nenprogramm zeigen und 


40961 
40962 


wnom 


tippen Sie SYS 64802 (Kalt- 
start) ein. Sie werden sehen, 


daß das Maschinenpro- 
gramm gestartet wird. 


„.. und seine Über- 


listung 


Da der Computer die 
Adressen für den Autostart 
nur beim Kaltstart absucht, 
könnte man den Computer 
einschalten und dann das 
Modul einstecken. Mit viel 
Glück könnte es klappen, 
aber es können auch erheb- 
liche Schäden am Computer 
oder am Modul auftreten. 

Softwaremäßig gibt eskei- 
ne Lösung, den Autostart zu 
verhindern. Ein kleiner Ein- 
griff in die Hardware 
macht's aber doch möglich. 
Auf Seite 150 des VC 
20-Handbuches ist die 
Hauptspeicher-Erweiterung 
beschrieben. Uns interes- 
siert Pin21(+5V). Wenn Sie 
Ihren VC 20 öffnen, sehen 
Sie die Anordnung entspre- 
chend dem Bild. 









Kneifen Sie den Draht von 
Pin 21 durch und löten Sie 
zweinicht zu dünne, isolierte 
Kabel an. Die Kabel verbin- 
den Sie mit einem Schalter, 
den Sie im Gehäuse einbau- 
en oder nach außen legen 
können. Mittels dieses 
Schalters können Sie Modu- 
le ein- und ausschalten! 
Also, wir stecken das Mo- 
dul bei ausgeschaltetem 
Computer in den Port und 
unterbrechen Pin 21 mit un- 
serem Schalter. Dann schal- 
ten wir den VC 20 ein, der 
Computer findet in den be- 
treffenden Adressen kein 
a0CBM und meldet sich mit 
dem üblichen Bild. Jetzt 
drücken wir unseren Schal- 
ter, der Strom fließt, aber es 
wird kein Autostart mehr 
ausgeführt. Wir können das 


Modul jetzt mit 
POKE 43,0:POKE 44, 160:PO- 
KE 45,0:POKE 46,192: 


SAVE’(Name)",] 

auf Kassette abspeichern 

oder mitSYS 64802 (Kaltstart, 

wir erinnern uns) starten. 
(Jörg Grohne) 


in nm 


Logic Disassembler 












<LOGIC -— DISASSEMRBLER> 
CODE 





LOC STATEMENT 


#=30642 





BNE 
Be02 C6E44 RI 88 LDA #899 


sC641 








6 a 
0883 C64E RB TAY 
8004 CE47 91 2B STA (825), 7 
















M it diesem ganz in Ba- 
sic - geschriebenen -Pro- 
gramm bestehtnun die Mög- 
lichkeit, beieiner beliebigen 
Startadresse einzusteigen 
und von dort aus-das-Pro- 
gramm zu verfolgen. 

Auch mit einer komplet- 
ten Disassembler-Listing 
wardies bisher eine äußerst 
aufwendige und zeitrauber- 
de Angelegenheit. Bei je- 
dem Sprung-Befehl {sei es 
BRANGH, ]SR oder ]MP) 
aing das große Blättern Ios: 
Das Verfolgen von mehrstufi- 
gen Unterroufinen mitunter- 
schiedlichen Ausstiegsmög- 
lichkeiten ist schon ganz un- 
möglich: 

Der  bogic-Disassembler 
hingegen wartet bei jedem 
Sprungbefehlaufdie Einga- 
bevonY,NoderX.Ystehtfür 
»yes«, dasheißtdemSprung- 
befehl folgen, N steht -für 
»no«, also zum Beispiel’eine 
bekannte "Unterroutine-em- 
fach- zu übergehen; damit 
das Listing nicht zu unüber- 
sichtlich wird. X schließlich 
steht für »exite, wodurch der 
Disassembler bei einerneu- 
en Adresse gestartetwerden 
kann 

Das Listing der Basic-Rou- 
tine»NEW« (Bild }) zeigtals 
Beispiel; wiesinsolcher.Dis- 
assembler-Lauf vor sich 
geht 

Die Einsprungadresse 
liegt beiyC642 

In Zeile 1 wird der -BNE- 
Befehl mit der Eingabe’von 
»N« übergangen. Der ]SR- 
Befehl in Zeile 14 wird mit»Y« 
verfolgt, und es eriolgt-eine 
Verzweigung in die Routine 
$C6BE. Mit der Änzeige’ von 
STACK O wird. über.die Tiefe 
der Unterprogramm-Ver- 
schachtelunginformiert. Bei 
Erreichen vonRTSinZeile22 
wird in das Hauptprogramm 
(STACK 0) zurückgesprun- 
gen und- dieses =ab-der 
Adresse $C685C fortgeführt. 


Wer hat nicht schon nach einem guten 
Einstieg in das Betriebssystem oder in 
ein selbstgeschriebenes Assembler- 
Programm gesucht, um dem Verlauf der 


Programmlogik folgen zu können? 


Der darauffolgende 
BRANCH-Befehl m: Zeile 24 
wird wieder mitder Eingabe 
von»N«übergangen.InZeile 
25folgtdanrreirRTS; und da 
der STACK auf O steht (man 
befindet sich alsoıim-Häupt- 
programm), wird>der Disas- 
semblerVorgang= beendet 


61 PRINT:FRINT" Daaa 
5 AD=A-1 





8285 C649 C8 INY 







B886 CSAR 91 2B STAR <$2B),Y 
8887 CESC RS 2B LDAR #28 
0888 CE4E 18 CLc 

8883 LSAF 639 82 ADC #302 
8818 C651 85 20 Sta F2D 
sell CES3 AS 2C LDA s2C 
8812 (655 69 88 ADC #209 
8813 C6E37 85 2E STA $2E 





8814 JSR $CE8E STACK 1 













8815 £LC 
BBi6 CEBF AS 2B LIA $2B 







8817 C6S1 69 FF ADC #SFF 
Beı8 C693 85 7R STA #7RA 
8819 L695 AS 2C LDA $2C 
08208 CE97 69 FF ADS #SFF 
80821 (639 85 7B STA #7B 





0222 


8823 
8924 


08925 


C69B 


C6SC 
CEeSE 


STACK 8 






















“09 
+C£3D 


C68D 








START-ADR. = 30642 Bild 1. 


ERERORE m ERCERD Logische Disassembllerung 
der Basic-Routine »NEW« 





< DISASSEMBLER - END > 





POKE36373, 233: PRINT" ##%* DISASSEMBLER ##" 
PRINT"MM LOGIC - DISASSEMBLER" 

PRINT"M YO 20 - VERSION" 

PRINT"® Br B 


a PRINT"mM  FRED HAMMER = 


PRINT"N DBERE BERGSTR. 12” 

PRINT"M 5419 LEUTEROD = 

PRINT"N TEL. 92602769372 " 

FRINT"mMUM PRESS ANY KEY er 

GETAS$: IFAF=""THEN199 

CLR:POKE36873, 25: DIMSS(C 189) :SS7=8 : DIMACH (255? 
PRINT"X DISASSEMBLER-START >M" 
FORI=8T0255:READACSCII :NEXT 
POKE36379,25:PRINT"TX DISASSEMBLER-START >8" 
H$="0123456739ABCDEF" 

GOT0528 

REM HEX-UMRECHNUNG 

DE=9: FORZ8=1T04:N9=9:FÜRZ1=1T016 

IFMIDSCK$, 29, 13)=MIDSCH$, Z1, 1 > THENNG=Z1-1:21=16 
NEXT : DE=DE+161C4-20)#NG : NEXT RETURN 

REM DEZ-UMRECHNUNG 
%$="":FORZO=4T0O1STEP-1:Z1=INT(CDE/161728-12) 
IFZ1=8THENX$=X$+"8" :GOT0358 
IFZ1IZ19THENXS=X$+RIGHTECSTRECZLI ,LENCSTRECZ1II-12:G0T0358 
RF=XS+HCHRECZ1+5) 

DE=DE-21#1517029-1) :NEXT :RETURN 

REM DER 65592-BEFEHLSSATZ 

DATA BRK,ORA (X, ,,,0RA $,ASL $,,PHP,ORA #,ASL,, ORR,ASL?,,BPL,ORA CYr 5, 
DATA ORA £X,ASL $%, ,CLC,ORA Y,,,0RA K,ASL %,,JSR?,AND £X,,,BIT &,AND # 
DATA RÜL 8, ,PLP,AND #,ROL, ,BIT?,AND?,ROL?,.BMI,AND (Y,,,,AND $%,ROL EX, 
DATR SEC,AND Y,,,;:RND %,ROL %, ,‚RTISEOR (X, ,,,EOR $,LSR $,,PHA,EOR # 
DATA LSR, ‚, JMP?,EOR?,LSR?, ,BVC,EOR (Y,,,,EOR $SX,LSR $%,,CLI,EOR Y,,,,EOR * 
DATA LSR X, ,RTS,ADC (%,,,,ADC $,ROR $,,PLA,ADC #.ROR, , JMP (,ADC?,ROR?, 
DATA BVS.ADC (Y,,,,ADC $%,ROR $%, ,SEI,ADC Y,,,,ADC %,ROR %,,,5TA (8, 
DATA STY $,5TA 3,5TX $, ,DEY,,TXA, ,»5TY?,5TRA?,ST%?, ,BCC,STA (Yr,,,5Tr $% 


Das Listing zum »Logic Disassembler« 


a DATA STA £%,5STX 7, ,TYA,STA Y,TXS,,,STA %,,,LDY #,LDA (%,L0X #,,LDr $ 


DATA LDA $,LDX $,,TAY,LDA #, TAX, »LDY7?,LDA?,LDA?,,BES,LDOR CY,,, LDY 8% 
DATA LDA $%,LDX FY,,CLV,LDOA Y,TXS,,LDY X,LDA %.L0X 7,,CPY #,CMP CR, 
DATA CPY $,CMP $,DEC $,,INY,CMP #,DEX, ,CPY?,CMP?,DEC?,,BNESCHP (Yo5, 
DATA CMP SX,DEC $%,,CLD,CHMP Y,,,,CMP X,DEC X,,CPX #,SBC (%,,,C0PX $ 
DATA SEC $,INC $,,INX,SBC #,NOP, ,CPX?,5BC?. INC?, »BER,SBC ('Y,,,,5BC #8 


a DATA INC $%,,SED,SBC Y,,,,SBC %, INC X, 


FE$S=AD$: INPUT"MSTART CHEX)" RS 

IFA$="END"THENCLR:POKE35379, 29: END 

IFLEN(AF)<SISORLEFTSCAF, 122" $" THENSZO 

$=RIGHT$S(CA$,4):GOSUB269:A=DE 

FRINT"KPRINTER ? 'Y/N" :POKE198,9:WAIT198, 1:GETAN$: IFAN$<>"T"THENSYO 
INPUT"COMMENT ";FF$ 

DPEN4,4:CMD4 

PRINTCHRE(C14) ;FF$:CHR$C15) : PRINT 

FPRINT"KLOGIC - DISASSEMBLER>" :PRINT:PRINT"LINE# LOC CODE STRIE 


#="A$:PRINT:N=9 


AD=AD+1:N=N+1:DE=SAN:GOSUB399 

PRINTRIGHT£C"BAB9O"+RIGHTFCSTRECHI ,LENCSTRECNYI-12,42" "RX" "5 
P=PEEK (AD :DE=SP:EA=P:GOSUB399:S$=RIGHT$(KF, 23 :RESTORE 
MNE=ACHCP) : IFLENCMNSI=SSTHENSSE 

IFMNE=""THEN?4G 

IFLEN(MN$)=4THENS3A 

IFRIGHTECHNS, 12="#" THENMNS=MNS+"$" 5070779 





<LOGIC - DISASSEMBLER> 
LINE# LOC CODE STATEMENT 


09898 “s3FFEI 
09881 FFEI (49323) 


0982 F77a FR s31 
8883 F772 “sFE 
2084 F774 sF77D 
0985 F776 

00896 F777 sFFCC 


8987 FFCC (30322) 


02098 F3F3 #203 
0089 FSFS KIA 

ee10 F3F? SFaFC 

@Bll FS3F9 sEFB4 

2912 F3FC 539 

2813 FSrE zF483 

eei4 F409 $EEF6 

@915 F403 z9R 

@Bi6 F485 #109 

Bei? Fa? 499 

eais F4@9 STACK 9 


8819 F77?R sC5 
0928 F?7C 
0821 F7?7D 


Bild 2 undaufdieerneute Eingabe 
START-ADR. = $FFEI 2 


END-ADR. = SF77D Die Betriebssystemroutine zur Abfra- einerStartadresse gewartet: Daberwird jede sacen 


STOP-T: biiert. BeiderEingabevon»END = z 
< DISASSEMBLER - END > 9. ax een statt einer STATtadTEsSE EG aerung angezeigt. 


amm Es könnenalle Sprungbe- 
desProgr beendet. fehle verfolgt werden, sogar 
solche, diesichaufeinemdr 
rekte Adressierung- bezie- 
hen. Als Beispiel hierfür 
kann:das-Disassembler-Pro- 
tokoll der Abfrage der Stop- 
Taste dienen (Bild 2): 

Inder Zeile ist der Befehl 
JMP 180328) "gefunden=wor 
den, jetztwird der Inhaltder 
Speicherstelle -$0328 Zund 
30329 ausgelesen und-die 





















798 IFRIGHT$SCHNS, 1>="$"THEN?78 
rı& IFER=1GSTHENS4H 

728 IFMIDECMNS,S, 1>="C"THEN?99 
728 IFMIDECMNS,S, 1)="£"THENS192 
749 GOSUB758:MNS=LEFTSCHNS, IH" ES" HASCDIHASCLI+" , "+RICHTSCMNS, 1) :60T0942 
758 FORK=1T02:AD=AD+1:P=PEEK(AD) :DE=SP:GOSUB399:AFCKI=RIGHTFCKE, 2) 

759 SI=SE+" "+RIGHTFCHF, 2) :NEXT:RETURN 

72 AD=AL+1:F=PEEKCAD) :DE=P:GOSUBI399:5$5=S$+" "+RIGHTSCHS,2) 

738 MNE=MNS+RIGHTSCH$,2):60T0949 

38 AD=AD+1:P=PEEK<AD) :DE=SP:GOSUB3GB:SF=S$+" "+RIGHTSCKE,2) 

899 MNE=LEFTSCHNS,SI+"E"+RIGHTSCHE, 294"), "+RIGHTSCMNS, 1): :G0T09349 

318 AD=AD+1:F=PEEKCAD) :DE=P:GOSUB3QH:S$=S$+" "+RIGHTSCK$,2) 

320 MNE=LEFTECHNS, SDP+RICHTECK$,2I+" , "+RIGHTSCMNS, 1): :GOT0949 

338 GOSUB7S@:MNS=SLEFTSCHNE,SI+" SHASCZI+ASCLY:GOTOI49 


30 AR=AD+2:P-PEEKCAD) :DE=P:GOSUBSOU:SS=58+" "+RIGHTSCKS,2) Sprungadresse- errechnet. 
SG MNS=LEFTSCHNS,SIH"S"+RICHTSCHE,2) _ 
369 F=PEEKCAD-1):DE=P:GOSUB3AN:SF=S$+" "+RIGHTSCKS,2) 2 = 2 og = a 
378 MNSSMNS+RIGHTSCHS,2)+")" :GOTO949 BEE BB ESFZEHSTANSIEN 
38% BEN BRENCHZBETEN. Sprungadresse, und erst, 
330 MNE="ERK"ÜRLEFTFCMNSE, 1><>"B"THENI4O wenn dieser Test positiv ver- 
299 AD=AI+1:P=PEEK(AD):DE=F:GOSUB29B:SE=38+" "ARIGHTSCHE,2) ee 

319 IFPI=139THENAB=AN-(255-P) :G0T0339 lauf, wirdabdieser Adresse 
324 AR=CAD-13+P+2 weiter disassembliert. Ver- 
93 d ee a "MNE=SMNS+" S"Y4+XH:KZ=1 läuft der Testjedoch negativ, 
342 =32THENMNS=MNF+" STACK"+STRECSSZ+1) ; 

35@ IFEA=ISANDSSZIBTHENMNE=SMNS+" STACK"+STRECSSZ-1) erfolgt ein »LOGIC FLOW 
360 PRINTLEFTS(SS+" "16IMN$: IFER=9STHENPRINT ERROR«, und es wird zum 
378 IFKZ=ATHEN103@ 

338 GETAAS: IFAAS=""THENSSO 

394 IFANE="Y"THENCMDS,CHRECIS) ; 

1000 KZ=9: IFAAS="N"THEN1932 

1919 IFAAS="K"GNT01269 

1923 PRINT AD=AB-1:KZ=G 

1935 IFEA=320REA=7SOREA=1GS0OREA=9STHEN19SH 





1949 GOTIE3Y 
1959 IFER<>ISTHEN1H9G 
12659 REM "BEFEHL: RTS" 
IFSSZ=9THEN1269 
” -1:AD=S5(55%) :G0T053 







va 
9 
ar FEHL: JSR" 

a GETAAS: IFRAS=""THENIIOG 

2 TFANS="P"THENCMD4,CHRSC1S); 
a IFAAF="N"THENG3G 

a IFAAS="X"GOT01268 
IFERZDSZTHENL 139 

1159 SSCSIZI=AD:SSN=SSZ+1:PRINT 
‚160 ÄD-PEEKCADJAZSSHPEEKCAD-1)-1 
1178 G0TO639 Dessen 
1180 REM "BEFEHL: JMP ABS." Lisäng zum »Loge En 
1199 IFEACDTETHENI210 (Schluß) 
1200 AD=PEEK(AD)#2S6+PEEKCAD-1)-1: PRINT :GOTOS34 

121@ REM "BEFEHL: JMP IND." 

1220 AI=FEEKCAD)#2SS+PEEKCAD-1) 

1239 A2=PEEKCAD)#2S6+PEEKCAD-1) 

1240 IFAL<DAZTHENPRINT :PRINT"LOGIC FLOW ERROR" :GOTO1268 

1259 AD=PEEK<CAI+L)K2SS+PEEK(AL)-1: PRINT:G0T0638 

1269 DE=AD:GOSUBSOB 

1278 PRINT :PRINT"START-ADR. = "AS:PRINT"END-ADR. = z"X$ 

1289 PRINT:PRINT"< DISASSEMBLER - END >" 

1239 IFANS="Y"THENPRINTH4, :CLOSE4 

340 601032 


A ID An 


vi en dm 
va a ne OD 
















Endeder Disassemblerung 
gesprungen. 

Das Programm»Logie-Dis- 
assembler« ist in. der vorlie- 
genden Form für den VG 20 
geschrieben;-es>ist jedoch 
nach Änderung der Zeilen 
100 und -530°(die POKE-Be- 
fehle-ändern-lediglich- die 
Farben des Bildschirms} so- 
fort auf’ dem Commodore 54 
ünd den anderen -EBM- 
Computernlauffähig: 

(Fred Hammer) 


fa 
So 






ZI RR 





Mit den »synthetischen Steuerzeichen« stehen Ihnen Möglichkeiten offen, die Sie bishe 


ach dem Einschalten des 

VC 20 oder des C 64 und 
der »READY«Meldung des 
Computers kann man sich 
nach Herzenslust auf dem 
Bildschirm austoben — zu- 
nächst ohne Programm. Sie 
können vorab Texte gestal- 
ten, Grafiken entwerfen, da- 
bei die Farben wechseln, 
hier Zeichen ergänzen und 
da Stellen abändern. Kom- 
fortabel wird dieses Auste- 
sten der Möglichkeiten auf 
der »elektronischen Tafel« 
jedoch erst durch die Cur- 
sor-Steuertasten CLR/ 
HOME, INST/DEL, RVS 
ON/OFF sowie durch die 
Farbwahltasten. Man er- 
reicht damit ein hohes Maß 
an Flexibilität im Ansteuern 
jeder beliebigen Bild- 
schi elle. 

Schreibt man nun unverse- 
hens ein Änführungszeichen 
(engl.: quote)aufdenSchirm, 
so verhältsichder Computer 
plötzlich anders: die Cursor- 
Tasten wirken nicht mehr — 
man kommt mit ihnen nicht 
mehr aus der Zeile heraus. 
Auch die Farbumschaltung 
mißlingt, das Bildschirmlö- 
schen mit CLR/HOME ver- 
sagt, lediglich DEL funktio- 
niert noch. Und dies alles in 
voller Absicht! Warum? Statt 
der Ausführung der Steuer- 
befehle zieht es der Compu- 
ter vor, sich die Anweisun- 
gen in Form reverser Steuer- 
zeichen zu »merken«. Wozu? 
Nun, um Steuerbefehle die- 
ser Art programmierbar zu 
machen. (Man stelle sich nur 
einmal vor, der Cursor sei 
nicht per Software steuer- 
bar. Verfolgen wir diesen 
Gedanken lieber nicht wei- 
ter.) Zurück zum Thema: 
Nach dem ersten Änfüh- 
rungszeichen befindet sich 
der Computer offenbar in ei- 
nem anderen Verarbei- 
tungsmodus, genannt Quote- 
Modus, in dem er (mit Aus- 
nahme von DEL) alle Steuer- 
befehle als Reverszeichen 
»speichert« und damit zur 
späteren Ausführung bereit- 
stellt. Der Quote-Modus wird 
verlassen, sobald das zweite 
Anführungszeichen einge- 


tippt oder die RETURN-Taste 
betätigt wird. Da die Steuer- 
zeichen —eingeschachteltin 
Gänsefüßchen — vom Com- 
puter wie Texte behandelt 
werden, können sie in Pro- 
grammen auch als solche 
verarbeitet werden. Dazu 
stehen alle Stringoperatio- 
nen zur Verfügung, die auch 
bei »normalen« Texten ver- 
wendet werden. Wirkung 
zeigen Steuerzeichen je- 
doch erst dann, wenn man 
sie mittels PRINT aktiviert. 
Fazit: Ein Basic-Listing kann 
normalerweise keine rever- 
sen Zeichen enthalten — es 
sei denn, es handelt sich um 
Steuerzeichen in Strings. 


Steuerbefehle ohne 


»Gänsefüßchen« 


Wir haben uns als 
Commodore-Änwender si- 
cherlich schon längst an das 
reverse Q für CURSOR UP 
oder an das Herzchen für 
CLR/HOME gewöhnt. Doch 
es geht auch anders. Das 
muß es auch, wenn der 
Drucker zum Beispiel keine 
Steuerzeichen ausgeben 
kann. In diesem Fall bedient 
man sich der CHR$ 
Funktion, die durch die Be- 
fehlsfolge 
PRINT CHR$(X) 
aktiviert wird. Mit X = 147 
wird beispielsweise eben- 
falls der Bildschirm ge- 
löscht. Wie kommt das? Tip- 
pen Sie bitte ein: 

PRINT ASC('"[CLR/HOME]") 

Bitte tippen Sie die Aus- 
drücke, die in den ge- 
schweiften Klammern ste- 
hen, nicht als Buchstabentfol- 
ge ein, sondern zum Beispiel 
für PRINT ASC ("{CLR/ 
HOMEI!") nach dem ersten 
Gänsefüßchen die Con- 
trol-Taste und dann gleich- 
zeitig die CLR/HOME-Ta- 
ste. Verfahren Sie bei den 
folgenden Beispielen dem- 
entsprechend. 

Nach erfolgem RETURN 
lesen Sie: 147. Das reverse 
Herzchen wird vom Compu- 


ter also als Zeichen interpre- 
tiert, das den ASCII- bezie- 
hungsweise CHR$-Code 147 
trägt. Ein weiteres Beispiel: 
Die Zeilen 

PRINT "YRV ON]ITEST" 

und 

PRINT CHR$(18)" TEST" 
bewirken dasselbe, weil 
PRINT ASC("(CTRL RVS 
ON!”) 

zeigt, daß der CHR$-Code 
des reversen R eben 18 ist. 

Ausgehend von der Tatsa- 
che, daß jedem Steuerzei- 
chen ein bestimmter Codein 
der CHR$-Liste (siehe Hand- 
buch) zugeordnet ist, wurde 
die Idee geboren, daß diese 
Zuordnung — um es mathe- 
matisch auszudrücken — 
umkehrbar eindeutig sein 
müsse. Das heißt, zu jedem 
Steuerbefehl müßte auchein 
entsprechendes reverses 
Steuerzeichen gehören, das 
denselben Zweck erfüllt. 

Nun gibt es zum Beispiel 
die Möglichkeit, über 
PRINT CHR$(14) 
auf Kleinbuchstaben umzu- 
schalten. Gibt es dafür auch 
ein Steuerzeichen? Auf kon- 
ventionellem Weg hieße die 
Antwort klipp und klar: nein. 
Aber... 

Zu Beginn war alles nur 
Spielerei, bis sich die er- 
staunlichen Möglichkeiten 
und Anwendungen häuften. 
Deshalb: spielen Sie nun bit- 
te mit! 


Steuerzeichen auf 
illegalem Weg 


Bevor wir das große Ge- 
heimnis lüften, wollen wir 
erst einmal an ganz und gar 
legalen Steuerzeichen üben, 
wie man sie illegal eingibt. 
Halten Sie sich bitte zunächst 
streng an das angegebene 
Rezept, auch wenn es noch 
andere Eingabeformen gibt. 
Das gilt auch für die späte- 
ren Beispiele. Unsere erste 
Übung soll darin bestehen, 
den Bildschirm ohne 
CHR$(147) und ohne die Ta- 
ste CLR/HOME zu löschen 
— im Direktmodus, versteht 





sich. Dazu geben Sie bitte 
hintereinander ineinerZeile 
ein: 

1. Schritt: 

PRINT 
2. Schritt: 

Erstes Anführungszeichen 
setzen. Jetzt befinden wiruns 
im Quote-Modus, den wir so- 
fort wieder verlassen wol- 
len. Daher: 
3. Schritt: 

Zweites 
chen setzen. 
4. Schritt: 

Mit DELeine Stelle zurück- 
gehen. Dabei wird das zwei- 
te Anführungszeichen ge- 
löscht. Da wir unsnicht mehr 
im Quote-Modus befinden, 
reagiert der Computer auf 
Steuerbefehle, 

5. Schritt: 

Mit CTRL RVS ON auf Re- 
vers-Modus schalten. Das ist 
notwendig, da wir ja ein re- 
verses Steuerzeichen quasi 
künstlich erzeugen wollen! 
6. Schritt: 

SHIFT S eingeben. Beim 
geSHIFTeten S bekommen 
wir eines der S-Taste zuge- 
ordneten Grafikzeichen, in 
diesem Fall das gewünschte 
Herzchen. Nun verlassen 
wir den Revers-Modus: 

7. Schritt: 

CTRLRVS OFF. Wenn Sie 
wollen, können Sie noch ein 
Anführungszeichen zur opti- 
schen Abrundung anhän- 
gen. 

Was jetzt auf dem Bild- 
schirm steht, sieht so aus, als 
hätten wir nie den legalen 
Pfad verlassen, als hätten 
wir immer mit der 
CLR/HOME-Taste gearbei- 
tet. Dieses Steuerzeichen ist 
jedoch künstlich entstanden 
— wird es auch wirken wie 
ein »echtes«? Das Drücken 
der RETURN-Taste über- 
zeugtunsschnell davon, daß 
der Computer uns diese um- 
ständliche Manipulation 
nicht übel genommen hat: es 
funktioniert tatsächlich! 

Bedenken Sie bei der Ein- 
gabe, daß nur zwei Änfüh- 
ıungszeichen auf dem 
Schirm erscheinen, obwohl 
insgesamt drei eingegeben 
wurden, Der Computer be- 


Anführungszei- 





findet sich also nach dem 
dritten Gänsefüßchen wie- 
der im Quote-Modus. 

An der Stelle, an der so- 
eben mitSHIFTS das Steuer- 
zeichen für CLR/HOME ge- 
neriert wurde, kann nun je- 
des beliebige reverse Zei- 
chen erzeugt werden. Dieje- 
nigen davon, die auch eine 
Steuerfunktion ausüben, 
abernicht aufnormalem We- 
ge über direkte Tasten- 
drücke erzeugt werden kön- 
nen, wollen wirimfolgenden 
„synthetische Steuerzei- 
chen« nennen. 


Die Synthetischen 
kommen 


Wennes—unddas wardie 
Frage, die alles ins Rollen 
brachte — anstelle der Um- 
schaltung auf Kleinbuchsta- 
ben mit CHR$(14) ein äquiva- 
lentes Steuerzeichen gibt, 
dann muß es zwischem dem 
reversenE für WHT (Code5) 
und dem reversen Q für 
CURSOR DOWN (Code 17) 
zu suchen sein. Numeriert 
man das Alphabet entspre- 
chend durch, so findet man 
den Buchstaben N unter der 
Codezahl 14. Das reverse N 
müßte demnach das Steuer- 
zeichen für die Umschaltung 
auf Kleinbuchstaben sein. 
Probieren wir es aus: 


? ” ” DEL RVS ON 


N RVSOFF RETURN 


Es klappt! Der Computer 
schluckt diesen ungewöhnli- 
chen Befehl und führt ihn 
aus, 

Dieser Erfolg motivierte 
eine Suche nach allen ver- 
fügbaren synthetischen 
Steuerzeichen; die Ausbeute 
fiel jedoch zunächst recht 
mager aus. Die nachfolgen- 
de Tabelle zeigt Ihnen die 
synthetischen Zeichen und 
ihre Wirkungen bei Bild- 
schirmausgaben (beim 
Drucker sieht'setwasanders 
aus — dazu aber später 
mehr). 


Steuerzeichen CHR$-Code 
H 8 


Esseinochmalsdaraufhin- 
gewiesen, daß die Zeichen 
dieser Tabelle als reverse 
Zeichen nach obigem Ver- 
fahren erzeugt werden müs- 
sen (Ausnahmen: T für DEL 
und SHIFT T für INS können 
auch direkt erzeugt werden; 
sie sind im eigentlichen Sinn 
keine synthetischen Steuer- 
zeichen.) 

Auch wenn die Eingabe 
der synthetischen Steuerzei- 
chen umständlich erscheint, 
man wird sich schnell daran 
gewöhnt haben und auf ihre 
Vorteile nicht mehr verzich- 
ten wollen — nicht nur, weil 
sie gegenüber der CHR$- 
Funktion Speicherplatz spa- 
ren. 

So unscheinbar und un- 
wichtig das SHIFT RETURN 
ist, so gewaltig sind die Mög- 
lichkeiten, die uns das zuge- 


Wirkung 

Die manuelle Umschaltung 
zwischen Groß- und Klein- 
buchstaben mit Hilfe der 
COMMODORE- und SHIFT- 
Tasten wird gesperrt. 

Die obige Sperre wird wie- 
der gelöst. 

RETURN. Alles, was nach 
dem reversen M in der Zeile 
steht, wird nicht mehr ge- 
druckt. Leider ist eine echte 
Simulation der RETURN-Taste 
zum Ändern von Basic-Zeilen 
unter Programmkontrolle 
nicht möglich. 

Umschalten auf Kleinbuchsta- 
ben. 

DEL. Hiermit können Sie Tei- 
le oder komplette Programm- 
zeilen optisch verschwinden 
lassen. Dieses Steuerzeichen 
wirkt auch beim Listen eines 
Programms auf dem Schirm. 
Anwendung: partieller List- 
schutz. 

SHIFT RETURN. Das Super- 
Zeichen! Mehr dazu im Text. 
Umschalten auf Großbuchsta- 
ben. 

INS. Kann zum Ändern von 
Text an bereits gedruckten 
Text benutzt werden. Bei- 
spiel: ? "(SHIFT T]X" liefert 
ein X auf dem Schirm. bei 
mehrfacher Äbarbeitung 
wird stets ein weiteres Xan 
die bereits vorhandenen an- 
gehängt. 





hörige synthetische Steuer- 
zeichen eröffnet. Es handelt 
sich um das reverse, geshif- 
tete M (Code 14)). 


Das Super- 
Steuerzeichen 


Gibt man ? " "{DEL)(TEST 
[CTRL RVS ON) {[SHIFT M) 
[CTRL RVS OFFJLAUF"” 
ein, so zeigt sich nach dem 
Drücken der RETURN-Taste, 
daßderComputernachdem 
Teilstring »TEST« einen Wa- 
genrücklauf (carriage re- 
turn) mit Zeilenvorschub (li- 
ne feed) durchführt und 
»LAUF« direkt darunter aus- 
gibt. Genau dieses Verhal- 
ten erwartet man von SHIFT 
RETURN. [SHIFT M} kann je- 
Goch mehr — vielmehr! Das 


nicht für möglich gehalten haben. Ein neuartiger Listschutz ist dabei nur ein Teilaspekt. 


nächste Beispiel soll es be- 
weisen: 

10?'"'DEL} TEST{CRTLRVS 
ON] {SHIFT M] R [CRTL RVS 
OFF) LAUF” 

Geben Sie bitte dieses ein- 
zeilige Programm ein und 
starten Sie es. Wie erwartet 
erscheint »TEST« und darun- 
ter revers »LAUF«. Nun listen 
Sie bitte dieses Programm. 
Erstaunt? Das ist tatsächlich 
neu! Das Steuerzeichen für 
die Umschaltung in den 
Revers-Modus erscheint 
nicht im Listing, sondern 
wird entgegen aller bisheri- 
gen Kenntnisse ausgeführt. 
»LAUF« wird im Listingrevers 
ausgegeben. Durch das 

SHIFT-RETURN-Zeichen 
wird der Basic-Interpreter 
offenbar veranlaßt, nachge- 
stellte Steuerzeichen auch 
im Listing wirksam werden 
zu lassen. Es zeigt sich, daß 
diese Schlüsselfunktion alle 
Steuerbefehle seien es 
Farbumschaltungen oder 
Cursor-Bewegungen, akti- 
viert. Ungeahnte Möglich- 
keiten eröffnen sich nun zur 
optischen Aufbereitung, das 
heißt Strukturierung und Ge- 
staltung von Listings auf dem 
Bildschirm. Einige Beispiele 
sollen dies verdeutlichen. 
Beispiel 1: 

Reverse REM-Zeile ohne 
sichtbares REM-Statement 
und ohne Zeilennummer 


10 REM ” ”|DEL) [CRTL RVS ON) 
[SHIFT M] [SHIFT Q) R [CRTL RVS 
OFF] TESTLAUF 

20 FORI=1 TO 10 

30 PRINT"TESTLAUF":NEXT 


Die Zeilen 20 und 30 sind 
Beiwerk, damit die REM- 
Zeile nicht so allein dasteht. 
Listen Sie das Programm bit- 
te. Sie sehen die reverse 
Überschrift „TESTLAUF« oh- 
ne REM und ohne Zeilen- 
nummer und darunter wie 
gewohnt die Programmzei- 
len 20 und 30. Wie funktio- 
niert dieser Trick? Das re- 
verse [SHIFT M) bewirkt ei- 
nen Sprung zum Änfang der 
nächsten Zeile und gibt die 
nachfolgenden Steuerzei- 
chen zur Ausführung frei. Mit 
dem reversen [SHIFT Q) 


—wiM- mn am 


GC 64 





geht der Cursor eine Zeile 
nach oben, also auf »l« der 
Zeilennummer 10. Reverses 
R schaltet auf reverse Zei- 
chen um, in denen dann der 
REM-Text »TESTLAUF« aus- 
gegeben wird. Dabei über- 
schreibt der Computer die 
Zeilennummer sowie das 
REM-Statement. Das alles 
vollzieht sich so schnell, daß 
essich der Beobachtung ent- 
zieht. Der Änwender sieht 
nur noch die reverse Über- 
schrift und kann demzufolge 
an dieser Zeile auch nichts 
mehr ändern. 

Sollten Sie die Original- 
REM-Zeile noch auf dem 
Bildschirm haben, so hän- 
gen Sie an das »F« von »TEST- 
LAUF« noch das Steuerzei- 
chen für CURSOR DOWN 
an. Sie werden sehen, daß 
beim Listen sogar eine Leer- 
zeile zwischen Überschrift 
und Programm entsteht. 
Selbstverständlich können 
derartige REM-Zeilen belie- 
big im Programm verstreut 
sein. Wirkung: Im Pro- 
grammlauf werden unter 
der reversen Überschrift 
»Quadratzahlen« die Ergeb- 
nisse ausgegeben, während 
beim Listen des Programms 
der PRINT-Befehl verschwie- 
gen wird und man eine 


Beispiel 2: 


REM-Zeile wie in Beispiel 
l vermutet. Damit trägt eine 
PRINT-Zeile zur optischen 
StrukturierungeinesListings 
bei — ein Effekt, der bislang 
in dieser Form unmöglich 
schien. 

Beispiel 2. Farbige REM- 
Zeile (ändern Sie nur Zeile 
10). 

Beispiel 3. Wirkung: Grü- 
ne Überschrift ohne Zeilen- 
nummer und ohne REM, gel- 
bes Listing. 

Beispiel 4. Wirkung: Die 
bekannten Herzchen sorgen 
nach dem Listen jeder Zeile 
für ein Löschen des Bild- 
schirms, so daß die beiden 
Programmzeilen weder ein- 
zelnnoch insgesamt sichtbar 
bleiben und die Codezahlen 
A und Bdem Anwender vor- 
enthalten werden. 

Mit diesen Beispielen sol- 
len Sie, die Leser vom 64’er, 
nun an Ihre Computer ent- 
lassen werden. Sie werden 
sicherlich Spaß an der Viel- 
seitigkeit dieser neuen Me- 
thode gewinnen und eine 
Vielzahl von Anwendungen 
austüfteln. 

In der nächsten Folge er- 
fahren Sie dann alles über 
synthetische Steuerzeichen 
für den Drucker. 

(jürgen Wagner) 


10 REM " "|DEL) [CRTL RVS ON) |SHIFT M) (SHIFT Q) [1] [CRTL 
RVS OFF) TESTLAUF |CRTL RVS ON) {SHIFT x) |CRTL RVS OFF) 


Beispiel 3: 


Listschutz 


10 A=471l : REM " "[DEL) [CRTL RVS ON) ([SHIFTM ) (SHIFT S) 
20 B=0815 : REM ” "[DELJ/CRTL RVS ON) (SHIFT M{ (SHIFT S] 
reverses SHIFTM für SHIFT RETURN 


reverses SHIFT S für CLR/HOME 


Beispiel 4: 
REM-Ersatz 


10 PRINT ” ” [DEL) [CRTLRVS ON) (SHIFT M) {SHIFT S] 
R ICRTL RVS OFF} QUADRATZAHLEN 
reverses SHIFT M für SHIFT RETURN 


reverses SHIFT S für CLR/HOME 


reverses R für RVSON 
20 FOR I=1 TO 10 
30 PRINT 1,1: NEXT 


Einige Beispiele für die synthetischen Steuerzeichen 


unmn 


Reset für den IE 29 


Wem ist das noch nicht passiert? 

Ein Maschinenprogramm, ein paar 

POKES und der Computer hat sich 
aufgehängt. 


ar das Programm vor- 
her nicht abgespei- 
chert, so ist man verraten 
und verkauft, da der VC 
20 keine eingebaute 
Reset-Taste hat. Miteinem 
Minimum an handwerkli- 
chem Geschick kannman 
hier jedoch leicht Abhilfe 
schaffen. Auf Seite 152 
des VC 20-Handbuches 
ist der User-Port be- 
schrieben. Uns interes- 
sieren Pin | (Ground) und 
Pin 3 (Reset). Wenn man 
diese beiden Pins kurz- 
schließt, wird ein Kaltstart 
ausgeführt, genau wie bei 
SYS 64802. Da der Strom 
nicht abgeschaltet wur- 
de, sind die Speicherin- 
halte erhalten geblieben. 
Basic-Programme schei- 
nen zwar verloren gegan- 
gen zu sein, können aber 
durch »Verbiegen« der 
entsprechenden Zeiger 
wieder gerettet werden. 
Die eleganteste Lösung 
eines Kurzschlusses von 
Pin lund Pin 3ist derEin- 
bau eines Tasters. Wenn 


Il 


hier löten 


User-Port von oben 


Sie den VC 20 öffnen (bitte 
nicht während der Garan- 
tiezeit), sieht der User- 
Port wie im Bild darge- 
stellt aus. 

Löten Sie zwei isolierte 
Drähte an den eingege- 
benen Punkten an und 
verbinden Sie siemitdem 
Taster. Den Taster kön- 
nen Sie im Gehäuse ein- 
bauen, zum Beispiel 
rechts oberhalb der Ta- 
statur, oder Sie legen die 
Drähte nach außen und 
lassen den Taster aus 
dem User-Port hängen. 

Wenn Sie Ihren Compu- 
ter nicht öffnen möchten 
oder sich die Lötarbeiten 
nicht zutrauen, können 
Sie sich einen Stecker für 
den User-Port besorgen 
unddortdie beiden Dräh- 
te zum Taster befestigen. 
Nach diesem kleinen Ein- 
griff genügtein kurzer Ta- 
stendruck, und der VC 
20/C 64 ist wieder be- 
triebsbereit. 


(Jörg Grohne) 


Pin 1 


hier löten 








azu muß man wissen, daß 
das Betriebssystem nach 
Ausführung der Loadroutine 
($FFD5) indirekt in den 
Basic-Warmstart springt 
($0302/$0303). Also wird die- 
ser Vektor aufdie Startadres- 
se des Ladeprogramms ge- 
setzt. Um auf der Diskette 
nur einen Block für den La- 
der zu belegen, wählt man 
für ihn den Bereich, der für 
Sprite 11 reserviert ist 
($02C0-$02FE). 

Dieses einfache Maschi- 
nenprogramm erfüllt die ge- 
forderten Bedingungen als 
Lader für das Programm 
»HESMON« mit Start $Cff8. 
Der Anwender muß für ein 
anderes Hauptprogramm 
nur die Länge des Namens 
ändern ($02C]); den Zeiger 
auf den Filenamen ($02Cf/ 
$02D2), den Namen und die 
Adresse des Hauptpro- 
gramms ($02D7/$02DC & 
$02E7/$02E8). Dann wird 
der Bereich von $02C0 bis 
$0303 vom Monitor ausabge- 
speichert: »S”LOADER'08 
02C0 030%. 

Zum Test des Programms 
vollziehe man nun einen Kalt- 
start, und nach »LOAD”LOA- 
DER''8,l« erscheint SEAR- 
CHING FOR LOADER, LOA- 
DING, SEARCHING FOR 
HESMON, LOADING, dann 
erfolgt der Start des Pro- 
gramms »HESMON«. 


Ausaabe 6/lun: 1984 


Der Teil des oben genann- 
ten Laders, der als Vorberei- 
tung der Loadroutine die 
Zeropage beschreibt, kann 
auch durch die Routinen 
$FFBA und $FFBD ersetzt 
werden. 

Der Basic-Lader POKEd 
das Maschinenprogramm 
direkt in die zugehörigen 
Speicherzellen. Achtung: 
Nach Ablauf des Basic- 
Laders startet das Maschi- 
nencode-Programm direkt. 
Das Programm wandelt die 
Hex-DATAs in Dezimalzahlen 
um und POKEAd diese. Das 
Programm, das geladen 
werden soll, bestimmt man 
durch Umändern der jewei- 
ligen Speicherzellen, wie 
oben beschrieben. 

(Martin Heinz und 
Andreas von Lepel) 
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Nützliche ROM- und RAM-Adressen für den VC 20 wurden schon mehrfach 
veröffentlicht. Dieser Artikel bringt nun Beispiele, wie diese auch sinnvoll einge- 
setzt werden können. Denn was nützt das beste ROM-Adressenlisting mit den 

tollsten Erläuterungen, wenn man keinen Anwendungszweck findet? 


| wir mit der Ton- 
erzeugung. Mancher VC 
20-Besitzer hat das mögli- 
cherweise schon so oft gele- 
sen, daß er in der Nacht von 
den Adressen träumt. Tonge- 
nerator | bis 3: 36874 bis 
36876, Generator für weißes 
Rauschen: 36877, Lautstärke: 
36878. Doch die wenigsten 
wissen, daß man mit der 
Lautstärke auch den Klang 
eines Tones entscheidend 
beeinflussen kann, indem 
man ihn langsam auf- oder 
abschwellen läßt. 

In der Praxis sieht das so 
aus, daß maneinen bestimm- 
ten Ton wählt, dann die Laut- 
stärke langsam aufdreht, ei- 
ne Weile hältund schließlich 
wieder langsam abdreht. 
Wenn man den Ton sofort voll 
aufdreht und gleich danach 
langsam abschwellen läßt, 
klingt es, als ob man auf ei- 
nem Instrument einen Ton 
anschlägt, derdann langsam 
ausklingt. Listing | zeigt ein 
Beispielprogramm mit einer 
bekannten Melodie. 

Die bekannteste Nutzungs- 
möglichkeit der Lautstärke 
dürfte wohl die Explosion 
sein. Man wählt ein tiefes 
Rauschen und läßt es lang- 
sam leiser werden. Das so 
entstehende Explosionsge- 
räusch kann sehr gut für 
Spiele verwendet werden. 
Das kleine Programm in Li- 
sting 2 erzeugt zum Beispiel 
bei jedem Tastendruck ein 
anderes Explosionsge- 
räusch. 


Farbige Anleitung 


Da wir gerade von Spielen 
sprechen: ZueinemSpielge- 
hört auch eine Spielanlei- 
tung (auf dem Bildschirm). 
Und wenn man da einmal et- 


was ganz besonderes haben 
will, gibt es die Möglichkeit, 
innerhalb eines Buchsta- 
bens mehrere Farben zu ver- 
wenden. Wie geht das? In 
der Speicheradresse 646 
steht die momentan benutzte 
Farbe. Zulässig sind Werte 
von Obis7. Addiertmanzuei- 
nem dieser Werte 8, so wird 
auf Vierfarbenmodus umge- 
schaltet und es entstehen 
bunte, verzerrte Buchstaben. 

Diese lassen sich zwar 
schlechter lesen, ergeben 
aber zum Beispiel bei Spiel- 
programmen einen interes- 
santen Effekt (für Textverar- 
beitung sind sie weniger ge- 
eignet). 


Save-Schutz 


Die Buchstaben setzen 
sich aus vier Farben zusam- 
men: Aus Hintergrundfarbe, 
Rahmenfarbe, Hilfsfarbe 
und der gewählten Zeichen- 
farbe aus der Adresse 646. 
Die Hilfsfarbe wird mit den 
Bits 4 bis 7 aus 36878 defi- 
niert. Es ist unbedingt not- 
wendig, daß die Hinter- 
grundfarbe nur einmal da- 
bei vorkommt. Ist nämlich ei- 
ne dieser Farben gleich der 
Hintergrundfarbe, so entste- 
hen Lücken in den Buchsta- 
ben, und der Text wird so 
stark verstümmelt, daß er 
sich nicht mehr lesen läßt. 
Das Rücksetzen erfolgt ein- 
fach durch Umschalten der 
Zeichenfarbe mit der CTRL- 
Taste. 

Doch nun zu einem ande- 
ren Thema: Im VO 20 gibt es 
einen Vektor, der jedesmal 
bei der Ausführung des 
SAVE-Befehls benutzt wird. 
Er steht in 818/819 und zeigt 
aufdie SAVE-Routine des VC 





20. Durch Ändern dieses 
Vektors kann man die Aus- 
führung des SAVE-Befehls 
und damit eventuell das un- 
erlaubte Kopieren eines Pro- 
gramms, verhindern. Zum 
Beispiel kann dieser Vektor 
durch POKE 818,116:POKE 
819,195 auf $C474 gesetzt 
werden. Nach Eingabe des 
SAVE-Befehls erscheint 
dann immer direkt READY, 
ohne daß etwas passiert. Ei- 
ne andere Möglichkeit ist, ei- 
ne Fehlermeldung auszuge- 
ben. Dies geschieht durch 
POKE 818,53:POKE 819,196, 
wodurch der Zeiger auf 
$C435 gesetzt wird. Nach 
der Eingabe von SAVE er- 
scheint ‚OUT OF MEMORY 
ERROR«, 


Doch die wirksamste Mög- 
lichkeit wird wohl die sein, 
das Programm durch den 
SAVE-Befehl zu löschen, in- 
dem man den SAVE-Vektor 
auf $FD22 setzt. Dies ge- 
schieht durch POKE 818,34: 
POKE 819,253. Nach Eingabe 
des SAVE-Befehls erscheint 
die Einschaltmeldung, und 
das Programm ist gelöscht. 


Leider ist es mit diesen 
zwei POKE-Befehlen nicht 
getan. Denndurch gleichzei- 
tigesDrücken derSTOP-und 
RESTORE-Taste werden sie 
sofort wieder rückgängig 
gemacht. Es muß also zusätz- 
lich noch die RESTORE-Ta- 
ste abgestellt werden. Das 
geht einfach mit POKE 
37150,2. Danach hat die 
RESTORE-Taste keine Funk- 
tion mehr. Wenn nötig, kann 
sie durch POKE 37150,130 
wieder eingeschaltet wer- 
den. Dieser POKE-Befehl 
schreibt in das Interrupt- 
Enable-Register des VIA 
6522 # 1 des VC 20, der für 
den NMI zuständig ist. 


Doch nun wollen wir keine 
Tasten außer Betrieb setzen, 
sondern welche abfragen. 
Oft steht man vor dem Pro- 
blem, mehrere Funktionen 
gleichzeitig zu steuern. Lei- 
der kann man in Basicimmer 
nur eine Taste aufeinmal ab- 
fragen, weitere gedrückte 
Tasten werden normalerwei- 
se nicht erkannt. 


Zehn Tasten 
gleichzeitig 
abfragen 








Aber - glücklicherweise 
gibtes beim VC 20 eine Mög- 
lichkeit, sieben Tasten auf 
einmalabzufragen. DieBits1 
bis 7 der Speicherstelle 145 
entsprechen folgenden Ta- 
sten: Der linken Shift-Taste, 
X, V, N, #, ? und Cursor 
up/down. Die Taste ist ge- 
drückt, wenn das entspre- 
chende Bit gelöscht ist. 

Nunläßtsich das ganze mit 
der Speicherzelle 653 noch 
erweitern. Bit 0 entspricht 
den ShiftTasten, Bit 1 der 
Commodore-Taste und Bit 2 
der CTRL-Taste. Im Gegen- 
satz zu den sieben anderen 
Tasten sind hier jedoch die 
entsprechenden Bits bei Ta- 
stendruck gesetzt. 

Der Computer unterschei- 
det übrigens zwischen der 
rechten und der linken Shift- 
Taste, Mit der Äbfrage PEEK 
(145) AND 2 OR PEEK (653) 
AND 1 kann man zwischen 
beiden Shift-Tasten unter- 
scheiden. Sie ergibt norma- 
lerweise 2, beim Drücken 
der linken ShiftTaste l und 
beim Drücken der rechten 
Shift-Taste 3. Shift lock ent- 
spricht der linken Shift-Taste. 

(Thomas Gruber/ev) 





68 DATA 8 
65 DATA 
?9 DATA 
75 DATA 
29 DATA 
85 DATA 
sa DATA 
55 DATA 


1a 


ln 


1 REM TON-DEMO 

2 REM =s======= 

3 REM 

4 REM 

Ss Dim TC» 

18 FOR X=1 TO S:READ TCX) NEXT 

15 READ T.D:POKE 36975, TCT):POKE 36876, TCT) 
28 IF D=-1 THEN END 


o 
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BRBADUSR 


188 DATA ISDELSILS 


185 DATA 8, - 
35 FOR Y=l 10° SMD:NEXT Y 
48 NEXT X 
45 GOTO 15 
58 REM 
SS REM 


READY. 


Listing 1. Ton-Demo 





EM EXPLOSIONEN 
EM 


© 
- 


6=365877:1=36378:X=RND(1)#100+129 
FOR I=15 TO 8 STEF -1 
29 POKE G,%+I1:POKE L,I 
25 FOR D=1 TO 249-%:NEXT D 
NEXT I 
POKE G:8:POKE L;8 
GET A$:IF As="" THEN 49 
RUN 


DANN 


9 
1 
1 
‚l: 
1 
ı 
1 


"ROnURBAaN 
vn nn (FL 
DERONDAD 


ER 


READY. 
Listing 2. Explosionen 


Veränderungen am 64-Basic 


Eine der merkwürdigsten Effekte am Commodore 6# ist, 
wenn man unmittelbar nach dem Einschalten den Speicher 
abfragt, also eingibt 
PRINT FRE(0) 

Man erhält nämlich eine negative Zahl als Antwort. Man 
kann dies korrigieren, indem man bei einer negativen Änt- 
wort den Wert 65538 addiert. Im folgenden soll diese Merk- 
würdigkeit etwas näher beleuchtet und ein Weg zur Korrek- 
tur dargestellt werden. 

Die Funktion FRE(O) liefert dennoch verfügbaren, also frei- 
en Speicher. Dazu wird der Speicher aufgeräumt (Garbage- 
Collection), das heißt, die nicht mehr benötigten Strings wer- 
den entfernt und der gesamte String-Bereich folglich geord- 
net. Der freie Bereich ergibt sich dann als: Untere Grenze 
der Strings minus obere Grenze der Ärrays. 

Der Inhalt derfolgenden Adressen muß also voneinander 
abgezogen werden 
33/34 Untergrenze Strings 
31/32 Ende Arrays 
also 
Inhalt von 33 minus Inhalt von 31 
Ergebnis nach 63 
Inhalt von 34 minus Inhalt von 32 
Ergebnis nach 62, 

Das Ergebnis istalso vom Typ INTEGER. Allerdings arbei- 
tet der Interpreter intern nicht mit Integer-Zahlen, sondern 
mit'REAL-Zahlen (Gleitkommazahlen), das Ergebnis muß al- 
so gewandelt werden. Beider Wandlung wird ein Bit (von 16, 
die für die Darstellung der Integer benötigt werden) als Vor- 
zeichen betrachtet. Ist der Inhalt von Zelle 62 größer oder 
gleich $80=128, sowird die Zahlbeider Wandlungalsnegati- 
ve Zahl angesehen. Der Inhalt von 62 wird dann größer oder 
gleich $80 sein, wenn der freie Bereich größer 32767 Byte ist. 

Aus diesen Gründen taucht gelegentlich eine negative 
Zahlalsfreier Speicherplatz auf. Wie kann man diesändern? 

Im Interpreter gibt es vier Wandlungsroutinen. 

1) Wandle REAL-Zahl nach INTEGER. 

Dabei wird die Integer-Zahl mit 15 Bit + 1 Bit für das Vorzei- 
chen verschlüsselt, darstellbar sind also als Integer ganze 
Zahlen von —32767 bis +32767. 

2) Wandle INTEGER-Zahl nach REAL 

Dies ist die Umkehrung von ]). 

3) Wandle REAL nach INTEGER. 

Dabei wird eine Integer-Zahl mit 16 Bit (kein Vorzeichen!) ver- 
schlüsselt, darstellbar sind also Zahlen von Obis 65535. Diese 
Routine wird für die interne Darstellung der Zeilennummern 
des Basic-Programms benötigt (Wandlung von ASCI nach 
REAL, von dort nach INTEGER). 

4) Wandle INTEGER nach REAL. 

Dies ist die Umkehrung von 9), Diese Routine wird zum Bei- 
spiel für die Ausgabe der Fehlermeldungen benötigt (..,ER- 
ROR in (Zeile)). 

Beider FRE-Funktion müßte alsonach der Berechnung des 
freien Platzes die Routine 4) aufgerufen werden. Aufgerufen 
wird aber die Routine 2), Im Interpreter steht 


Run en eiıNnde 


JMP $BC44 (an der Adresse $B39B). 

Dort müßte aber eigentlich stehen 
SEC 
JMP $BC49 

Die Frage ist jetzt nur noch, wie kann man dies ersetzen? 

Dabei tauchen folgende Probleme auf 
l) Der Interpreter wird im ROM gespeichert. 

2) Man muß 3 Byte durch 4 Byte ersetzen. 

Im Commodore 64 kann man bestimmte Bereiche, die 
durch ROM belegtsind, ausblendenund dafürRAM einblen- 
den. Das folgende Programm kopiert den Interpreter vom 
ROM ins RAM 
10 FOR 1=10*16*256 TO 12*16*256-1 
20 POKE L,PEEK() 

30 NEXTI 

Dabei wird ausgenutzt, daß der Computer zwar über 
PEEK(D) aus dem ROM liest, aber mit dem Befehl POKE ins 
RAM schreibt (dies ist intern gelöst). 

Man müßte jetztnurnoch dasRAM einblenden, vorher sol- 
len aber noch die notwendigen Veränderungen vorgenom- 
men werden. 

Soeinfach kann mannatürlichnichtdreiBytedurchvierBy- 
te ersetzen. Die Lösung besteht darin, die Routine in einen 
freien Bereich umzuleiten und dort die notwendigen Befehle 
einzufügen (sogenannte Patches). Also anstelle von 
JMP $BC44 an der Adresse $B39B 
sollte stehen 
JMP $C000 in den freien Bereich. 

Dies erreicht man durch 
40 POKE 11*16*256+3*256+9*16+12,, 0 
(ersetzt $44 = 44*]5+4) 

50 POKE 11*16*256 + 3*256+9*]6+18 , 12*16 
(ersetzt $BC = 11*16+12). 

Än.der Stelle $C000 ff. solte dann stehen 
SEC 
JMP $BC49 

Also wird wieder gePOKET 
60 POKE 12*16*256 , 3*16+8 (=SEC) 

70 POKE 12*]6*256+1 „ 4*16*12 (=JMP) 
80 POKE 12*16*256+2 , 4*16+9 (=$49 Teilder Adresse) 
90. POKE 12*16*256+3 „11*16+12 (=$BC Teil der Adresse). 

Jetzt muß man nur noch das RAM einschalten 

100 POKE 1 , PEEK(l) AND 254 (Einschalten) 
( POKE1,PEEK()OR1 (Ausschalten)). 

Im Speicherplatz 1 wird im Bit 0 (= Wertigkeit ]) hinterlegt, 
wo die Speicherplätze von $A000 bis $BFFF sind. 

Und nun, lassen Sie Ihren Computer doch mal den Befehl 
PRINT FRE(0) 
ausführen. Wenn Sie keinen Fehler gemacht haben, wird er 
Ihnen diese Frage ab sofort korrekt beantworten. 

Zusammenfassend kann man sagen, daß der beschriebe- 
ne Effektunschön und der Aufwandzur Änderung geringge- 
wesen wäre. Der hier beschriebene Aufwand wurde da- 
durch groß, daß die Änderung nachträglich vorgenommen 
werden mußte, (Dr. August Quint) 
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Ich hatte letztes Jahr zwischen den Abiprüfungen ir- 
gendwann mal eine Woche Zeit, um etwas Längeres zu 
programmieren. Da ich zu der Zeit gerade eine gute 
Labyrinth-Routine in Maschinensprache geschrieben hat- 
te, die mich damals einigermaßen faszinierte, war das 
Grundthema eines Spiels eigentlich schon vorgegeben. 

Es sollte ein mit Joystick steuerbares, nicht aggressives 
Spiel werden, bei dem Action und Überlegung in etwa ei- 
ne gleiche Rolle spielen sollten. Zu dem Zweck habe ich 
mir erst einmal ein Männchen definiert, das mittels Joy- 
stick einigermaßen realistisch bewegt werden konnte. 
Beim Testen des Bewegungsablaufes dieses Männchens 
kam dann die Idee, den Ablauf des Spiels in den Unter- 
grund einer Stadtzulegen, und so entstand dann der klei- 
ne Vorspann. 

Das Zahlenlabyrinth schwirrte mir eigentlich schon seit 
einiger Zeit im Kopf herum, und die Programmierung ge- 
staltete sich relativ einfach. Alsich mir überlegte, noch ein 
wenig Action in das Spiel hineinzubringen, entstanden die 
beiden Aufzugsszenen. DasSchlußbild ergab sich aus der 
Überlegung, ein einfach zu berechnendes, aber trotzdem 
schwer zu spielendes Bild zu schaffen, bei dem ich auch 
die Labyrinthroutine noch ein wenig benutzen konnte. 

Aufgrund dieser Szenen entstand dann das eigentliche 
Spiel UNDERGROUND. (Oliver Joppich) 
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as Ziel des Spiels ist es, in 

möglichst kurzer Zeit aus 
dem Untergrundsystem von 
New York zu entkommen und 
dabei alle gestellten Aufga- 
ben richtig zu lösen. 

Das Spiel besteht aus ins- 
gesamt fünf verschiedenen 
Spielszenen und einer klei- 
nen Vorgeschichte, in deren 
Verlauf man durch einen of- 
fenen Schacht in das unterir- 
dische System von New York 
stürzt. Durch Drücken der 
Feuertaste am Joystick ist es 
jetzt möglich, in die erste 
Spielszene zu gelangen. 
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Benutze Maschinenspracheroutinen (Aufruf mit SYS) V 


4864 _Joystickabfrage; nach Aufruf dieser Routine kann mit 
PRINT PEEK(1001) der Schußknopf und mit PRINT 
PEEK(1000) die Richtung abgefragt werden. 

7360 Malt die Aufzüge auf den Bildschirm. 

5000 Crattatazong!! Soundroutine |. 

7296 Hyaehhl! Soundroutine 2. 

7168 Verschieben der Aufzüge um eine Einheit nach oben. 

7224 Labbymaker, die wohl interessanteste Maschinen- 
spracheroutine. Mit ihr wird innerhalb einer Zehntel- 
sekunde ein Labyrinth auf den Bildschirm gemalt. 


Bild 1 (oben) und Bild 2 (rechts). Nach dem Sturz in den Untergrund steht man vor 
einer Paternosterkaskade 





xy die Koordinaten des Männchens 
lo die Geschwindigkeit des Männchens 
sc Screenstart (=4096) 
co Start des Farb-RAM (=37888) 
po Position des Männchens am Bildschirm 
fa Position des Männchens im Farb-RAM 
jo Adresse der Joystickroutine (=4864) 
a(l)...a(5) Position der 5 magischen Zahlen 
zq Bildschirmpoke für Piplip 
pi Bildschirmpoke für Piplip 
Aa a 4. ur a . einem sich . en Labyrinth = Se Wichtige Variable 
Y Bild 5. Dies ist das letzte Hindernis, das es zu überwinden gilt = Anzahl der mitgenommenen Zahlen 


10- 135 Initialisierung 

136- 190 Titelbild 

198- 260 Männchen einen Schritt zur Seite 

266- 290 Titelbild New York, Schrift 

298- 840 Vorspannszene 

846- 990 Aufzüge Bild 1 

996 - 1590 Das Zahlenlabyrinth 
1596 - 1790 Piplips fangen 
1796 - 1950 Aufzüge Bild 2 
1956-2110 Die Glibberbahn 
2120-2440 Ende 
2450 - 2530 da fehlt eine Nummer oder ein Piplip 
2580 - 2690 damit geht’s auf und ab (das Männchen) 
2700-2710 Level := Level + 1 
2720 - 2730 Timeout bei Piplipcatch 
2740 - 2750 Ton langsam aus 
2760 - 2760 just for fun 





Die wichtigsten 
Unterroutinen 
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5 IFPEEK(44)<I32THENPRINT" 
18 CLR:FORT=8T03151 :RERDA:POKE4364+T, A: SU=SU+R:NEXT 
293 IFSUCI222480THENPRINT"TFEHLER IN DATEN" END 

39 PRINT"MABSPEICHERN" 

49 PRINT"MAUF 1) TRPE 
58 PRINT"ODER (8) DISK 

68 POKE198,8:WAIT198,1:GETAS:A=VALCAS) : IFACDLANDA<CISTHENG® 

78 PRINT"PT44, 19:Pf43,8:PT45,8:Pl'46,32:S@"CHR$C34) "UG. DATA"CHRFCI4)" "A 


32006 DATA162, 24,168, 127, 149,34; 145, 172,32, 145, 152,201, 119, 208,2, 162,23,172,31 


32@01 DATA145,152,41,4,281,4,289,5,56. 199. 233, 22. 170, 152,41,8:281,9,288,5,24 


32992 DATR128, 195,22, 178, 152.41,16,281, 16, 298,5, 139,56, 233,1,178,142,232,3,152 
22083 DATR162,8,41,32,201:32,249,2,162,1,142,239,3, 169,255, 1$1,34,145,96, 8,168 


22004 DATA, 132,8, 169,148: 133,1.162,2, 138, 145.9, 208. 145,8, 298. 288, 208, 192,24 


32995 DATR298, 243,72, 169, 22,24, 181,9,133,8,169,8,1@1,1,123,1.201, 159,248, 6,184 


320065 DATA168,9,76,98, 19, 194:96,8:8,8,2,8,8,8,162,8,134,1,169:9,133,8,162, 15 
32007 DATR142,14,144,164,8,148, 11,144, 166; 1,232,208, 253. 136,192,9,192,127,2088 


32993 DATA241,169.8,141,14,144,141,19:194,141,12,144,141,11,194,141, 10.194, 230 
32993 DATR1,238,1,238,1:238,1,165;1,41,7,77,19,194,141,15,149:165,1,298. 191,96 


32218 DATR9,9,8.2,8:8,133:96.92,8,9,9,8,2:9,8,0.8,9,2,8,2,8,8:9,9.0,8.8,8,8,8 


32811 DATRB.8,9,9.9,8.8:8,8:8,8,0,8,8,8.8,8,8,1,2,3,1,1,1,8,8,192,32,248, 80,16 


32912 DATR32: 192,192: 3,4,7,2,2,2:1,1:128,64,248,168,32,64,128,128.8,9,0.8,3.4 
32813 DATR15:3,0,8:9,2,128,64.248,64:8,8,8,8:8,9:9,32,9,8.8:8,9,8.8,0,1,7,3,2 
32014 DATR49,26;14:6,224: 249, 96,32. 192,32, 48,56,8,7,8,8,8:9,8,8:9,255,0,9,4,4 
32815 DATR21,4,24,255,8:8,9,2,15,8:9,9:129,64,32,16,248,16,.24,24:36, 90,98, 153 


232016 DATR129:255:8,8,24,24,36,68,129,255,1,2:2,2,1,1,1,1,32.169, 160,32, 192,654 


232917 DATA22,224,2,5,6:4,13,193,28,24,64,64,128, 192,32. 169,144,112,4,4,3,7,4,5 


32813 DATA4.3,64,128,9, 123, 79.58; 139, 254:32: 129, 181.178, 168, 166:123,33,0,9,192 


32913 DATA22, 144,66: 33,255,2:3,4,9:18.19,29,68,44:198,32.168, 168; 160, 144,248 
22928 DATA3,3:2,3,7,6:1:8,4,9,8,9,255,76,8:8,8,12,8,8,255,244,17:14,16,16.16 
22021 DATA16. 249, 224,9.8, 172,129, 172,173. 173,129, 173,173,129.171,129,171,129 
32022 DATA171,129,171,0,8.8.2:8,8,9,8,128:64,192:128,128.128:9,8.3,4,31,10,8 


22022 DATA4,2,2, 192,32: 224, 64,64,64,128,128,1,2,15,9,4,2,1:1,8,9,0,9,192,32,249 


22024 DATAL68,9:8.8,8:1,2,15,2:9:8,8:9:9,9,9,4:8,9,9,8,9.9.8,0,128,224,192,64 
32025 DATA149,98:112,.96,7,19:6:4,3:4,12,28.8,224, 16,16, 16,16,16:16,8,255.8,8 

22026 DATA22: 22, 248,32,24:255: 16: 16; 16,16: 248, 16,9,8,1,2,9:8,15,9,24,24,36:30 
32927 DATA38, 153,129, 255:9:9,24:24,36,66,129,255,128,64,64:64:128,123,123, 128 


22022 DATA4,3,59,4,2:2:4:7:64: 169: 98: 32, 176: 72:48,24:2,2,1:3,4,5,9.14,32,32,192 


22022 DATA224:32,169.32:192,2:1,8;1:99: 92:65: 127,429, 173,77,5:181,222,122,0 
22028 DATAG,2,4:291:179,132:259,64, 192,22, 144,89, 72.48,69,52:99,4:9,5,3,9,15 


22021 DATAIS: 16,16, 16:224:96,128:8,95,85. 170: 179,95,85, 179, 178; 16,49, 16: 16,255 
32932 DATA47,136;112:3,3,3,8,15:7,9:9,191,129;131,181,181,129, 191,8, 192,194,292 
22923 DATA24: 233,94: 199:9:24:52:99: 126,99: 99:98,8:124,99,98.124:93:99.124.0,28 


22024 DATAS9, 96:96, 96:59: 23,9. 128, 189,98, 93,98, 199, 129,8, 126,96,96,120,96,96 

32925 DATAL26:9. 126,96: 96:124,96:96,96,9:28:59,96, 119, 93.59, 23:9,99,98,38.126 
32025 NATR93,93,93,9,12,12,12,12,12,12,12,0:6.6,6:6:6,192,€0:9,93,188, 194,112 
32027 DATA194,198:98:0.96:96,96,96,96,96.124,9,98;118.106,99:98,98,92,8.66:93 
22922 DATA114, 196:192:93:98,8,69,93:92:99,92:93,60,9:124,98:93,124,96,96,96,9 
22029 DATAS@: 93:93:98. 196; 199,593,9,124,98,92, 124,129, 198; 182:9:69,192:96.60,65 
22948 DATA192,68,8,126,24:24,24,24,24:24,8:98,93:98;92,99:93:69:9,108. 198,100 
22941 DATA199, 199,56: 16:9:33: 98:98, 106: 106,118, 36,0,98,98,52.24,52,99,99,9.47 


22942 DATA49,49:38,:12,12:12,9, 126,126, 12,24,43,126:126:9,219, 165,66, 153: 153,66 
22943 DATA163,219,9,96,34,16,16,94,56,8,127,191;193,61.61,193.181,127,8, 126,153 


22844 DATA255, 255; 153,126:8.8,24:68.99,255,231,126,68.8:9.8.8,0,8,8.9,2,9,8,8 
32945 DATAB:9:2,9:36: 36: 36:8:8,8:8,9,36,36,126, 26: 126,36,36.8.24:60,90. 36.90 


22946 DATA69:24:9:2.192,192,9.126:0,192:192;124,179,128,.124,56,124.233,8,69,178 


22347 DATA193:56,68: 124: 192,9: 7,9: 18,16,17,8,7,9,224.:16,72:2,136:16,224:08,25 
22948 DATAS2: 28:8, 62:93, 28:54,9,8:3>€2,2,8:8:9,8:8,8,9:9.9,8,16,8,9,8.126,9,8 
22049 DATA9,8,8:8,9,9:8,24:24,8:9:2,4:9,16:32:64:9:69:93,98:99:99,99:60,9,12 


22958 DATA22,44,12,12;12:12:8:69,6,6:12:24,48:62:8:68:6:6:29:6:8:68,8,49,59,54 


22951 DATAS4.63,4:4:9,126:96: 128,12, 12:76,56,9,28,482,96: 124,99, 99,69,8,62,2,5 
22952 DATA12:24:24:24:9.69: 98, 93:69:99: 98: 69,8,68:99,98,62,6,12,.24,8,8,0,8,0 
32952 DATAB:8:8:8.90:0,2:8:98:8:8:16. 14:24:48: 96:48, 24:14,8:8,8; 126,9,126.9.9,0 


22954 DATA112:24:12:6; 12:78:69, 35,45, 83;67. 72:92, 73:79:89, 199,98,199,153,153, 199 
32955 DATA3B, 189: 192,32, 248,39, 16:32:192,192:3,4,7:2,2,2:1.1,128,64, 248, 169,32 


32056 DATAS4,128,123,8,9:9,9,3:4,15:5:2:8:9:9, 129.64: 249:64:9,9,0:8,8,8.8,32 
232857 DATAB.9,9.9:8,8:8:8,1:7,3,2,49,26,14,6,224:249,96,32: 192, 32,42,56,9:7,8 


32053 DATA®:8,3:8;8:9,255.8,8,4:4,31,4:24,255:8,8;:8:3:15,8:9,8,123:69,32,156,240 


22059 DATA16.24,24: 36:99; 98. 153; 129, 259.8,9,24,24,36,66,123,255:1:2,2,2,1,1,1 
220858 DATA1:32, 169, 168,32, 192.64:32:224,2:9,6:4:13,18:29:24:64,64.129,192.32 


22061 DATA169,144:112:4:4,3:7,4,5,4:3,64,123:8; 128,79,52:129,254,32, 129: 1©1,17% 


32962 DATA169: 166:123,23,9,9. 192.232: 147,285.39,255,2:2,4,9.18,192,28,60,44,193 
22063 DATA22, 160,169: 168, 144, 248,8,8,8;9;7,6,1:8,4,0,8:9,255:79; 16, 224:8.12,2 
22964 DATAS: 255. 244,17,14. 16. 16.16, 16,249, 224,8,8:173, 129,172: 172:173: 129,173 
32965 DATA172;129,171.129.171:129; 171,129. 171:255. 255. 255. 255.255, 255: 255: 255 


3286€ DATAB,2;4;15,6,5:4:2,8:129,64,224,192:64,69,122:.2:4:159.6:9,9:2:12,128,64 


32067 DATA224:192,64:64.122:96,48:126:64:64:129.64;64,126:8,126,64,69:129.64 

22962 DATA64:64,9:28, 34,64: 78:66: 34:28:8,66.66,68:125:56: 86. 66:0:28,.9,8:3:9:8 
22963 DATA28:9:14:4:4:4:4,62,56:8:66:68,72,112,72:692.68:9,64,69,64:64,5 
22978 DATAA, 86.192,99, 99,€8.66,68,9,66, 32,22, 74,70,5€,66,9,24:36:58:66.66:36 








32971 DATR24:8:9,9:9,9,8:9:9,12,28,12:7,6:19:19,8,64:95.112.218,192:168, 168,224 
32972 DATA22,52.29,6.18:19.14:98:112,89,122,192:160.224,9.9:0.68:66.66,6€,55,68 


32372 DATRE9,9:66:68,66: 26: 36,24, 24:0:56,66.:66:99; 99: 192, 88,0,86;:66:36.: 24,35 


22974 DATASS.66.0,34:24:34,28,8,2:8:8:126:2,4,24,32:54,126:9,60,32.22.32.22,32 


32975 DATRE9,8.12.16.16:68, 16,1 2,118,9.68,4.4:4:4:4:68,8,9;2:23:42,8:2:2,8;8 





1 1 
22976 DATAS3E,59:32:32:85:129,9:9:9,9:9:8,9:9,9,9.9:8.9,8,0:9:2:8:8,2,9,0:3:8 
32077 DATA26,28:26,0:9:9,9,8,236,26.126,26:126,38.28.9:2.29,49;23,19,59,2,0:8 
22973 DATA9®: 109,8; 16:22. 70.9. 43,72:72.48: 74:88,58:8:4,3:16:8:0,0,0,8,4:2,15 
22979 DATAIE: 16:2:4:9,22:16:2,8:9: 16, 32:0,8,42: 23,62, 28:42,2:9,0:8,9,62,8,5,9 
22038 DATAR:0:8,9,8:9,2:8:16:92:9:9,12€,9:0,09,0:9, :8:9:8:24,24,8:9:2,4:2,15,32 
32931 DATRS4. 8.69.66, 78,99, 92,66:69,9:2:24:49:2:8,2,.62,8;69:66.2,12,42,69: 26 
32922 DATA. 60,66,2:28:2,66:68,9:4:12:29: 36: 126,4:4:9,126.84:120:4.2,8%. 
22923 DATA23:32:64:124,66:6€,69, ‚126: 66:43, 18: 16, 16:90:50, 66: 66, 69. €6: 
32024 DATAB: 68, 68.68:62:2:4:56,8,8:9,2:0:0;,8:9:8,0:.9:2,9:0:2:8 16,14:2 
22085 DATA423,24:14,9:8:9,126:8,126,9.9,9.112,24,12,€ 12:24:112:9:68,586: 





"BITTE ERST EINGEBEN IMPOKE44,32:PF3192,8:NEN" END 


Listing 2. Maschinenspracheroutinen und Grafik für »Underground« 


.64.126 












VG 20 +16 KByte 


In dieser ersten Szene 
(Bild 2) geht es darum, ohne 
Berührung der Wände von 
derinken auf die rechte Sei- 
te zu gelangen. Um dies zu 
erreichen, gilt es, die Aufzü- 
ge, die sich von unten nach 
oben bewegen, geschickt zu 
benutzen. 


Die wilden Zahlen 


Nach diesem ersten, noch 
recht einfachen Bild gelangt 
manindas Labyrinth der wil- 
den Zahlen (Bild 3). Hier geht 
es darum, in möglichst kur- 
zer Zeit (maximal l Minute) 
die Zahlen des Labyrinthes 
in ihrer Reihenfolge aufzu- 
sammeln. Damit diese Ar- 
beit ein wenig erschwert 
wird, tauschen die Zahlen al- 
le sieben Schritte ihre Posi- 
tion in zufälliger Folge. Um 
diese kleine Gemeinheit 
aber ein wenig auszuglei- 
chen, kann auch der Spieler 
die Position der Zahlen ver- 
ändern, indem er den 
Schußknopf betätigt. Auch 
dann tauschen zwei zufällig 
ausgewählte Zahlen ihre Po- 
sition auf dem Spielfeld. 
Wenn alle Zahlen aufgesam- 
melt sind, muß man sich zum 
Ausgang auf der rechten un- 
teren Seite begeben. 

Man kann dieses Bild auch 
verlassen, wenn man nicht 
alle Zahlen aufgesammelt 
hat. Dadurch ist es möglich, 
sich auch die folgenden 
Spielszenen anzuschauen. 
Allerdings gelangt man zum 
Schluß des Spiels leider 
nicht wieder an die Oberflä- 
che der Stadt, sondern muß 
nochmal von vorn anfangen. 


Die Piplips 


Indernächsten Szene (Bild 
4) besteht die Aufgabe darin, 
alle Piplips aufzusammeln, 
das sind die kleinen schwar- 
zen Wesen, die überall im 
Bild verteilt sind und danach 
zum Äusgangrechts unten zu 
gelangen. Die Schwierigkeit 
dieses Bildes besteht darin, 
daß man nur eine bestimmte 
Anzahl von Schritten zur Ver- 
fügung hat, um von einem 
Pipip zum anderen zu gelan- 
gen. Jedesmal, wenn man ei- 
nes der Wesen aufgesam- 
melt hat, erscheint sofort ein 
neuer Irrgarten mit anders 
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> DATA2.9.,5.0:0.8,0:.09.0,0:9:0.02:0:9.169:18:-133:255 


2 IATAS,9,9.9,0.9:8, 8: 9:9:8:2:8,9,9,0.0,0. 9.169.18.132:1:1€9, 


3 DATA1323.2.7€ 


FORF=ITOLISTEPS: 
FORX=DT0292: POKES4S,RNDC1Y#7+1 

166 SYSJIO: IFPEEK(1901)=1THENSSO 

SUEZ20 : PRINTMIDSCOJISCT/4).%+1:19; 
NEXT :PRINT:PRINT"MM 
FORT=9T02998 NEXT :GOT027@ 


REM BEHEGUNG DES MAENNCHENS 


POKEPO, 32:FOKEFO+1.32:POKEFO+22:32:POKEPO+23:32 
212 FA=lü+f+Y#22:A=4 POKEFR, A:POKEFR+1: A:POKEFA+22: A: POKEFR+23; A 
PO=SC+X+7#22: POKEPO-2:POKEPO+1:2: POKEPO+22, 18: POKEPO+23, 19 
FORT=BTOLN :NEXT 

2 PO=SC+X+P#22: POKEPO:8:POKEPO+1.,1:POKEPO+22, 18: POKEPO+23: 1 
FORT=9TOLO: NEXT: 

RETURN 


& REM TITEL 2 
5 PRINTUMUE ID, 0@L7 I TA 1m 


239 PRINT"ITO/ 0177 =| 
FORT=OT03333:NEXT 





DATAS.18,9,192,168,298:129:139,8:2:16: 198, 152 »1:198,123:169,255:133 
DATA122: 96; 165:42,166,44:168,1,1233:95,1934,96, 177,95, 248,31: 209. 298, 185 
DATA21:2089.95.144,24,249:3,136:208.9: 165:29: 136,299, 95: 144.12.249,19, 136 
DATA177.95, 179: 136: 177,95, 176 215,24, 96,208, 253. 169,0, 168,145, 42: 209: 145 
DATA43. 165: 43,24: 195, 2; 132:49, 169,44, 185,9, 122, 46:32: 142, 168: 169, 8. 203 
DATR45: 32: 231.255, 165:55:164:56:193,51: 132,92. 169:45: 154: 48, 132. 47:132 
DATA4S, 133,49, 132.50. 32,29. 168, 162,25, 134: 22, 184: 162: 194. 162. 259:154.72 
DATA152:72:169,8,133:62.123, 18:98:24, 169:43, 109: 259: 132,122. 185,44, 195 
DATA25S:123,123:96:144;6:249:4:281:171,2098;232: 32, 197:169:22.19, 188,32 
DATA121,8,249.12:291:171,299: 142,32. 115:9. 32: 197: 163. eye 124, 194: 194,185 
DATAR29, 5, 21.298, €:169,255,193:29: 133.21. 168:1,132,15, 177,95:298,87,32,94 
DATA168, 22; 215, 170.200: 177,95,170 298: 177.35:197,21: 208, 2:2:0,0.8,0,0,58 
‚122; 1:169:2,133:259,1€9 
DATA24,1232.9.168: 2: 177.254, 153; 292; 17, 17:8. 145, 25 4:208,177.254:152,252 
DATA17:177:2,145.254: 299,209, 200-192: 29,298,229, 165,1, 132:.255:24,185;9 
DATA132.254:105,22.192,9, 169,8, 191,1. 123,1,201. 19.240,21. 150.8. 177,9. 145 
DATA254: 2088. 177.9: 145.254, 208: 209, 209.192: 20: 298, 249: 78:42:22,129:152, 10 
DATA169;15:141:14:144,124:8, 198,9,2098:252,169.0.141:14:144:134:9; 192: 0 
IATA298. 252.202: 299:231,33,95,96,96:98: 96:98: 96,96: 96:98: 96:96, EEE 163,8 
DATR141,12:1944,191:12,144:141,11,1944: 141,19, 144, 191,14: 144: 162.255: 168 
DATA2SS, 141.14: 144.202, 2098: 259. 169,255:77:14,144:141:14: 144,292: 228,252 
DATA125, 152.41: 230.170, 192,64, 208,233, 96.96, 96,96, 96. 96,96.96. 96.98.36. 
DATA9E. 96:96,98,96,96;169,0,.159; 128, 153,2. 16:152,9:17,183.4:152:9:148, 153 
DATA®, 149.208, 208, 237:76:38: 19: 96,96. 96,95,96. Er 96.96: 165:9:41,1:73.1 
ARE RE NT 95,98:36,98,38, 
DATA9S. 96,96:98:9, 169: 169. 169.0:153,22.18,152:8:17:152-9:148.152:8; 149 
IATA209,203,241,32: 169. 23,224: 2234. 189.45, 122: 554. 189 16, 133.255. 32,299 
DATAZI,24,133:38,.24:41,3,178,32:0,20, 169,9.177,2:291,159,203.22,24, 155 
DATAZ: 132,9, 165:3,132:1.139,145:2:32, 29.29. 169,32, 169,%,145,2,169.0,122 
DATA254:165,1:123,255;76:22:29.232,128,24,41:3;179:185:22:24:41:3: 123,232 








98, 95 





123,255 


DATA228,38, 239. 4,138, 76,42: 29.169.8. 177,294. 170.169, 22, 145; 254. 158,8, 122 
DATA224:4,48:1:96:32,9.21,165,3, 133,255, 165,2; 133: 254: 76.22:29:9:0.9;8 
21.123,80. 158 
DATAB, 169,91,145:9,24,165:9.195:22:1232;9:169.8-191:1:132:1:291, 12, 298.222 
DATA1E9.5,141,45,16,159,.91:169:9. 153,9, 16,299, 192: 22.202: 248,36, 173,22 
DATA145.77:21.145, 77,24. 145; 77; 25,145, 96.169: 199.96:8,0.0:9:9,8,92,0.0,9 
TATR2.0:9.6.9:9,8.0:9.9:0.08,0:8, e: 9:0:8.0.9:0.224.0:.202,1€8:24.169.2.101 
DATR254,133:2, 169,8, 191,255, 133,2. 76, 72,29,224,2,.202:.18.24 
DATA132:2,169:8,181.255. 133,2: 76: 73, 39: 224:2.208, 16:96: 163.254. 
DATAZ. 165. 255: 2232,9:123,3:76:72,39.58, 195: 254.233, 44, 133;2,165, 555. 
DATRB, 132,3,96:0,9:8:.9,9.0:224,9:202,16,24,169;:1,191:254:1223,2 ‚188.0, 1 
DATA2SS:123:3:76:73:39.224,3,298.16:24,169:22:191:254.133:2, 128 »8,191,255 
€: 72:20. 224,2,298, 16,56, 169: 254, 233:1:123, 2,165; 255, 233 »8,133 
30:56; 165: 254, 232:22;123:2,169:255,233.9:133,3:96,96,9,9;8 


DATA>: 7&, 73,23 
DATAB.9,8.8,8:9.9,8,2:9,8,0.8,8,9,9,9,0.0,9,0.6:9,2.8.9,8.0:9.0.0.0.0,9 
IATAG.2:.98.0:0:0.0:9:0:8:9:8:9:8.8,8.0,0.9:0:8.9:9:2:98,8:8:9:9,8:9,0-9,8 
DATAB.9.0.0.0:9,0.0:0,0:.9.9,9:2:8,0,.9:8,8,8:2.9,9.9:9,9.9,9,8,8,224,2,208 
DATA1E.24:169,2:191,254,123:.2,1€69.9,191,255;132:3,76,72,21:224:1,298,18 
DATR24, 169.44, 191.254,1323:2; 169.0.101:255,132,3,76,73,31,224;8,208, 16,56 
DATA165: 254, 233:2,133:2,165:255;233,8,133,3,76, 73:21:56, 165.254, 222,44 
DATA123.2; 165, 255.232.9.123,2:96:9.0, 9,168. 254,133 
























HRITTEN Pr 

QLIVER JOPPICH 
CELLER STR.52 
2299 BS 


:POKE36879: 8:PRINT"D4" :POKEIESEI: 285: PRINTCHRFC3I :C0=37323:80=4998:PO=SC:L 


se J0=4264:REM JOYSTICKROUTINE 
81 LO=69:POKE7645,96 


sa 0J3(o7="e TT + HET ET:DISCH="E] IT EUTIN 
138 OJSC2Y3="® MAIMTUNATDIT 
115 DIEH="EML | Io -OTXTN:OISCH="NIATII LAK/ BETTEN 


AM$S=" IKLMORNERELEJIBEN" :POKES,9:REM ERAUCHT JEMAND “NEN KRANKENHAGEN 
POKE36376. 22%: POKE35877 : 254 : FORT=9T05989 : NEXT :POKE35375,0@ 


pen TITELEILD 1 


Listing 3. Das Basicprogramm von »Underground« 


'POKE26278, 15: POKE2E372,9 
";:NEXT 





INT"MIIT, A T/ IL Ss / en al 70 IT I 1 72 
PURE" ; 


IATT/# MRS T7 


















verteilten Piplips. Tip: 1. Erst 
in Ruhe das Labyrinth an- 
schauen und dann lossau- 
sen. 2. Auch dieses Bild kann 
man ohne alle Piplips verlas- 
sen, allerdings gelten auch 
hier dieselben Einschrän- 
kungen wie bei den Zahlen. 


Aufzüge und 
Labyrinth 


Als nächstes kommt jetzt 
wieder ein Bild mit Aufzü- 
gen, allerdings um einiges 
schneller und mit kleineren 
Fahrstühlen. Auch hier muß 
man möglichst die Nerven 
behalten und von links nach 
rechts zum Äusgang gelan- 
gen. 

Und nun zur letzten Szene 
(Bild 5): Auf den ersten Blick 
vielleicht ein simples Laby- 
rinth mit zwei regelmäßig 
umherfliegenden Objekten 
(eine Namensgebung sei 
diesmal jedem selbst über- 
lassen). Die Aufgabe besteht 
darin, zum Ausgang zu ge- 
langen, ohnemitden fliegen- 
den Objekten zusammenzu- 
stoßen. Sollte es aus Verse- 
hen doch zu einem Zusam- 
menstoß kommen, wird man 
leider in das vorletzte Bild 
zurückgeschleudert und 
muß erst mal wieder die Auf- 
züge überwinden. 

Die Schwierigkeit bei die- 
sem Bild besteht darin, daß 
nach einmaligem Losgehen 
in eine bestimmte Richtung 
die Bewegung nicht mehr 
gestoppt werden kann, bis 
man an einer Wandbegren- 
zung zum Stillstand kommt. 
Wer jetztimmernoch glaubt, 
daß dieses Bild leicht zu 
schaffen sei, möge bitte das 
Programm abtippen, zu ei- 
nem Joystick greifen und an- 
schließend spielen. 


Das Eintippen 


Um Underground aufmög- 
lichst einfache Art und Wei- 
se vom Papier in den Com- 
puter zu bringen, ist das Pro- 
gramm in drei Teile unter- 
teilt: 

Listing 1: Lader. 

Dieser dient dazu, den 
Maschinen- und Basic-Teil 
von Underground von Kas- 
sette/Diskette zu laden. Um 
dieses Programm benutzen 
zu können, muß noch der 
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on 


OO ns 
RAID 
DUYNASDME « 


= FRINT" TAN 








A 7=13 


PRINT" N N NN 0 
PRINT"N GE N +N 1#+08"; 
PRINT"T TAN? 0= 1 104 1"; 
PRINT" TOT+TINDNINOTTNT" 
PRINT" TATEN eTTe Tee"; 
PRINT" Tete-tIeteretmettettee" 
FOREE=37238103728°+22: EI=RND(1)7+1POKEEE. EL 'FOKEEE+22: E1:POKEEE+44. E1 'POKE 
&,El 

:POKEEE+32,E1POKEEE+118,E1 NEXT 
PRINT" SURBRRBBIT/ CE IT ABRDBBBILLLEN" ; 
PRINTFDRIEECRERERECESELERSESELEEFSFORTEBTOFFPRINT"SCETE 
NEX 
PRINTMIIKLLCLLLLLLLELLLLLLCESE" :REM "22 8 <" 
P0=828:FORX=91015:Y=£ :GOSUP299:POKEI6378, 15:POKE36378, 8: NEXT 
FÜKEPO. 32: POKEPO+1. 22: POKEPO+22. 32:POKEPO+23,32 
FORY=ET015:L0=79:A=0 
FA=C0+%+Y#22 A=4 'POKEFA. A:POKEFR+1,A:POKEFA+22, A: POKEFA+23, A 
PO=SC+X+Y#22:POKEPO. 8:POKEPO+1 9: POKEPO+22: 24: POKEPO+22. 25 
IFYOSTHENPOKEFR-22. 2: POKEFR-21.,2:POKEPO-22: 68: POKEPO-21,68 
POKEPO. 22: POKEPO+1.32:POKEPO+22. 32:POKEPO+23,32 

POKE26872: 9: FOREE=249710242: POKE36377 ,EE NEXT: NEXT 

PRINT" ITU =";:REM 17 SPACES 

POKEFA, 2: POKEFA+1:2:POKEPO.69:POKEPO+1,69 

PRINT" DENBTU" ; 

POKE23687?. 159: FORT=1STO@STEP-1:POKE36978; T :NEXT 

POKEFR+22: 2:POKEFA+23, 2: POKEPO+22, 69: POKEPO+23, 68 
ann"; 
:POKE36277 , 220: FORT=19TOGSTEP-1 
FORT=8T01509::NEXT 
PRINT" CRRDERBENTU"; 
FORT=0T01499 :NEXT 

PRINT"CENI BAR"; 
FORT=0T01493:NEXT 
PRINT" MATDERIBIU"; 
FORT=OT01492:NEXT 
PRINT" MEDEARIBPO" ; 
FORT=QT0339 NEXT 
PRINT:PRINT"EIT,/A- 47 70 1° 
FORT=OTOSORM :NEXT 
PRINT" II IT ea IT I 17 1 ”; 

:P0=232:C08UB298 : FOKE3E878. 15:POKEIESTE 

73: FORTT=9T03 %=X+1:GOSUB209:POKE36278. 15: POKE3ES72. 0: NEXT 
718: POKE25378. 159: POKE36278:@: NEXT :G0T0778 
POKEPO, 22: POFEPÜ+1 , 22: POKEPO+22; 32 :POKEPO+22, 32 
FA=CO+2+0422A=4: POKEFA; A'POKEFA+1 A: POKEFA+22, A: POKEFA+23: A 
PO=SL+%+7422 :POKEPD, 26: POKEPO+1, 35: POKEPO+22,52:POKEPO+23,51 
IRT=OTOLC:NEXT 
=8(.+%+7422: POKEPO, 24: POKEPO+1, 22 POKEPO+22: 58: POKEPO+23,43 
ı FORTSATOLO"NEXT RETURN 
PRINT"TI me “; 
FORY=9T028 : SOSUB299: 5727392: POKE3E372; 15: POKE3E378. 
27810: IFPEEK( 1OC1)=1THENX=X+1 :COTOS38 
NEXT :FORX=29TOGSTEP-1 :COSUR719:8757292:POKEIEST2, 13 


LLLLLLSLSLLEL 


Lem: 
uhr 


:POKE36878, T:NEXT 


Listing 3. Das Basicprogramm von »Underground« 
(Fortsetzung) 


5 A127 EBEN ® 








5:POKE36978:8 





SYEIO: IFPEEK(C1991>=1THENS3A 

NEXT :GOTO7 

IF<CPEEK(S ZIANDID=SATHENSTS7332 

LO=19:FORX=XT020:605UB298 : POKE3E277 : 258: POKEI5378, 15: POKE36272: 8° NEXT 
REM JETZT GEHTS AR IN DEN ERSTEN AUFZUG 

T1$="999199":LE=8 

FOKE3S279,2:FOKE4953; 2:57°73659 


a FORT=2TI29STEF2: AA= INTCPNDE 1) *1e) ;AA=4096+T+AAKZ2 


POKERR: 22: POKERA+1 32: POKEAR+22, 32: POKEAA+23: 32: POKEAR+44 32: POKERA+4T,32 
FOKERR+EE : 32: POKEAR+E7; 32:NEXT 

POKE2E277 8: POKE26276: 8: POKE26275:9: POKE3EST?4.9:L0=58 
%2=9:P0=232:50SUR299:POKE7256: 159 








929 275J0: IFPEEK(1993)<>22THENFISUP2549:GOT0328 

238 PO=SCHKH 7422 :X=R+2 

34a IFPEEK(FO+ZI<>Z20RPEEK (PO+24) >32THEN: %=%-2:6G0T0938 
958 Keil GOSUR299 :X=X+1 :COSUP2GG FOKE , 15: POKE36272:B:POKE7258: PEEK(7255)76 
sE0 IFX=29THENIGOG 

974 GOTNI2G 

9208 PRINT"I" : POKE26379 2: POKE2E377 ; 15@:FORT=1STOBSTEP-. 2:POKE3ES72:T:NEST! 
938 POKE192,9:G070252 

995 : 

33€ FEM ACHTUNG HILDE ZAHLEN I! 

397 

1999 GOSUR2798 

1219 POKE26373: 25: PRINT HH" 

1929 PRINT"+ +"; 

1922 PRINT"+ +"; 

aaa PPINT" HH 

12858 PRINT"+ + + 7°, 

1229 PRINT"+ + + +"; 

1978 PRINT" + HH ++ + + 

1922 PRINT"+ +4 ++ #: 

1a9Aa PRINT"+ +": 

1188 PFINT"+ + + +"; 

1118 PRINT"+ +4 HH + 

1129 PRINT"+ + + +"; 

1120 PRINT"+ + + + +" 

1149 PRINT+HHHH+ ++ HH" 


VG 20 +16 KByte 


Teil2sowie der Teil 3einge- 
geben werden. 

Listing 2: Maschinenspra- 
che/Grafik. 

In diesem Teil befinden 
sich die Maschinenroutinen 
und die Grafik des Spiels. 
Nach dem Eintippen sollte 
man das Programm zwar aus 
Sicherheitsgründen abspei- 
chern, aber es wird bei der 
lauffähigen Version nicht 
mehr gebraucht, da es den 
notwendigen Programmteil 
selbst auf Kassette/Diskette 
ablegt. 

Listing 3: Basic. 

Hier ist das Hauptpro- 
gramm des Spiels in Basic 
abgelegt. 

Vorgehensweise: 
* Lader abtippen und ab- 
speichern 
* POKE44,32:POKE8192,0: 
NEW eingeben. 
* Maschinensprache/Grafik 
abtippen und abspeichern 
* Maschinensprache/Grafik 
mit RUN laufen lassen (er- 
stellt Maschinenspracheteil 
des Programms)und danach 
abspeichern, indem man auf 
die obere Zeile geht und 
<RETURN> drückt. 
* Computer kurz ausschal- 
ten und wieder einschalten 
(wegen der verbogenen 
Pointer) 
*Basic-Teilabtippen und ab- 
speichern mit SAVE"UG. 
BAS" (‚8 bei Floppy). 
* Wenn man Besitzer einer 
Floppy ist, war dasalles und 
man kann das Spiel laden 
und starten mit »LOAD"LA- 
DER'',8 und RUN). 
* Als Besitzer einer Dataset- 
te empfiehlt es sich, den La- 
der, den Maschinenteil und 
den Basic-Teil in dieser Rei- 
henfolge auf Kassette zu 
bringen und dann durch La- 
den und Starten des Laders 
zu beginnen. 

(Oliver Joppich) 





VG 20 +16 KByte 


PRINT"+ 

PRINT"+ 

PRINT"+ 

PRINT"+ 

PRINT"+ 

PRINT"+ 

PRINT" 

PRINT" er 

PRINT AHHHHHHHHHH HH" 3 POKE4691 91 :POKE38293,2 
%=0:7=29:60SUR219:L0=15:A$=TI$: TI$="999999" 
ZE=1:FORT=1T05 
A=RND(C1)#70+(T-19%99+SC : IFPEEK<AI<>IZTHENIZEB 
A<TY=A:POKER, 112+T:POKEA+T3792:RNDC1)#5+2: NEXT 
POKE37292,9:POKE37399,8 

POKE4197 , YALCRICHTSCTIS, 1) 3+112:POKE4196. VALCMIDSCTIS:-S. 1334112 
IFTIDIESBTHENZ728 


a SYSJ0: JU=PEEK( 1889) : IFPEEK(1991)=1THEN1348 


IFIU=23THEN1290 

25=-NOTZSANDI1S: IFZSCIOTHEN1390 

POKE3E373, 15: FOKE36876, 244 :POKE35277,@: POKE3E275:@:FOKE2E274,0 
Z1=INTCRND<C13#5+13 : IFPEEK<ACZLII<LIZORPEEKCACZ1II>121THEN1330 
Z2=1NTCRNDC12#5+1) : IFZ2=SZIORPEEK(ATZ2>ISLIZORPEEKIACZZIIPLZITHENZEN 


2 Z3=PEEK(RCZ1I) :FOKERCZ1) .PEEK(ACZ2Y) :POKERTZ2),22 


POKE23E2793,9:POKE2E37E:9 


32 SR=8: YY=9:P2=8: SP=SC+HX+7#22+23-FEEK( 1089) : IFJH=22THENP1=1:P2=23:XY=1: JU=1 


IFJU=24THENP1=9:P2=22:X%=-1: IU=2 
IFJU=1THENP1=22:P2=23:YY=1 ' JU=3 

IFIU=S4STHENP1=9:P2=1: Y'r=-1:JU=4 

IFPZ=OTHEN1239 


9 P3=PEEK(SP+P1) :P4=PEEKZSP+P2) : IFP2=91ORP4=91THENIZIO 


Au=11: IFPS>91ORPS>91THENCOSUELSSA 
IFQU=STHEN1298 

RERR+R NEN 4: IFXS29THENTISSAE:COTO1SED 
IFX=29THENX=X-1:50701232 
IFY<1THENY=1:G0TN1299 
ÖNJUCOSUR20G.712,2590: 2640 

PÜKE25278; 15:POKEIES78:9:C0T01299 
607012989 


Listing 3. Das Basicprogramm 
von »Underground« (Fortsetzung) 


3 Qu=ö 


IFF3=2E+1 120RP4=ZE+1 1 2ZTHENZE=ZE+I :OM=} 

IFQU=1THENPOKE36873. 15:POKE3ESTE.: 2292: FORT=129T0248  POKEIESTS, T°NENT:FOK 
POKE26373.9 

IFZE=3THENAH=Z 

RETURN 


REM CATCH THE PIPLIPS I! 


LE=1:G0SUR2798: Z0=& 
POKE3E372:9:POKE3S375:9:POKE285373, 3 
z0=20-1 


a CP=4117: IFZO<ITHENISEO 


FORT=1T020 


a PISSC+HRNDC1IESRS: IFPEEKCPII<>S2THENIEIQ 


FOKEPI, 183: POKEP1+33792:@:NEXT 
POKEPO, 195: POKEPN+32792. 4: POKE36278, 15° POKE4EB1 : 192: POKE2F292: 2: POKE4SAR, 32 
STSJIQ:HE=PEEK( 1099) : IFWE=ZITHEN1E78 


a CE=CC+HLANDE: IFCC=OTHENPOKECP: 169: CP=CP+22:POKE3S377, 249 POKE2E272:15 


IFCPI4S73THEN1778 
IFCC=1THENPOKE?ES77.9 
POKEPO. 22:PO=P0+23-HE : IFPEEKCPOI<PIZANDPEEK<POI<SDIASANDPEEK<FO)SDIE2ZTHENFO= 


PO-2S+HE 


1728 
1721 
1739 
1749 
1759 
1759 

778 
1729 
1721 
1738 
1795 
1796 
1797 
1208 
1219 
1322 
1239 
1248 
1258 
1259 
12379 
1229 
1239 


IFPEEK<PO)=183THENPOKE35377. 9: POKE26372: 15: FORTT=9T05:FORT=223T0239 
POKESE37E,T 

IFPEEK<PO)=1ASTHENPOKEPO+23792, FNDC1?%3:NEXT NEXT:COTOIE19 
IFPEEK{FO)=192THEN1298 

POKEFPO. 198: POKEPO+33792. 4: POKE2E372, 15: POKE23E273,0 
FORT=8T0998 : NEXT :GOTO1E79 

POKE3E373, 8: PRINT" TIMIAKETENS ISNT s® TA":PRINT"M * 
POKESES7E.: 220: POKE3E377 9: POKE3ES72: A: FORT=9T0224:POKE2E272 
POKE3E276:9 

FORT=8T02998 :NEXT:COTO1509 


REM DER AUFZUEGE ZHEITER TEIL 


POKEPN. 108: POKEPO+32792, 4: SYS5290:FORT=BTIS99 : NEXT :GOSUR2789 
POKE36379. 39: POKE49T3,2:5737369 

FORT=2T029STEP2:AR=INT{RNDC1IF12) :AA=4096+T+ARF22 

POKERR. 32: POKEAR+1 32: POKEAR+22: 32: FOKERR+22. 32 POKERA+44: 22: POKEAA+45, 22 
IFT/4=1NTCT/4) THENPOKERR+SE 32: FOKEAR+E7, 22 

NEXT: POKE26877.: 5: POKE35376:9:POKE3E37S, 9: POKE36374:9:10=59 
7=19:3=9:P0=332:G0SUR299:POKE72SE.119 

SrEIN: IFPEEK( 1989) <>22THENGOSUR2S549:C0T01278 

PI=SC+HX+Y#22:%=%+2 

IFPEEK(PO+2) RPEEK(PO+24I)<I32THEN:3=X-2:C0T01979 

%=%-1:G0SUP299 :X=X+1:C0OSUP298 'POKEIS872. 15: POKE26278; 2: POKE72SE, PEEK<T2SS>- 


IFX=28THEN1950 

60701378 

PRINT" :POKE36272, :POKE26277?.: 158: FORT=1STOBSTEP-. 2: POVE2EOT2:T!NEZT 
GOTO1218 


FORT=8T0299:: NEXT:COSUB2708 
u 


Underground 


Drucktehler- 
teufelchen 


m. 


Hier bin ich wieder. 
Auch in der Ausgabe 5 
des 64’er Magazins ist es 
mir mit viel Mühe gelun- 
gen, erfolgreich zuzu- 
schlagen. Mir gelangen 
die Attacken vor allem 
dort, wo die Herren Re- 
dakteure in Zeitnot gerie- 
ten. Dann passierte es, 
daß sie sich auf die Änga- 
ben der Programmein- 
sender verlassen muß- 
ten. Diese sind nämlich 
durchausin der Lage, ein 
Listing zu schicken, das 
mit der aktuellen, lauffä- 
higen Version nicht über- 
einstimmt. 

Das ist dann ein gefun- 
denes Fressen für mich 
und ich schlage erbar- 
mungslos zu. 

Supergrafik, Seite 81: 

In Zeile 4030 muß es 
heißen .. THEN BC= 
BC+1: .... 

Wörter werfen, Seite 87: 

In Zeile 260 müssen die 
42 mal Space nicht hinter 
dem Ausführungszeichen 
stehen, sondern direkt 
nach dem reversen Herz, 
innerhalb der Anfüh- 
rungszeichen. 

Den größten Erfolg hat- 
te ich im Programm 
Diskettenzauberei, 
89: 

Dort gelangen mir 
gleich 4 Fehler: 

Zeile 1120: Hinter 
PRINT#1 muß ein Kom- 
ma stehen. 

Zeile 1200 und 1260: 
Schreiben Sie vor dem 
Doppelpunkt ein Semiko- 
lon. 

Zeile 1250: Hinter B-Pmuß 
ein Doppelpunkt stehen. 
Zeile 1260: Schreiben Sie 
G% anstatt R% 


Seite 





1356 REM JETZT KOMMT DIE GLIBPERPAHN 
1957 : 
1980 POKE7E45:234:5757424 : POKEIE279: 26 DF=4191:POKE25277.0°1 
1981 FOKE35373,15 
1379 PRINT"S4I ":FORT=4117T0O4EQSSTER22:POKET: 2Z2°NEXT:REM 22 
SPACES 
1971 FOKET-23:32 
19539 en, PO=4149:POKEPO. 195 POKEPO+23732., 4:POKESISSTE; 8: POKE4925, 102 
1399 
2299 IFPEEKIDFD= 1BSOPPEEK(2693-DF)= 1BETHENPOKEFPD: 9 
2319 POKE3E377.: CDF-409€)/2+132  POKEDF , 995:POKEDF-44 
2929 POKES727-DF ‚35: FOKES7Z1-DF:22 
20839 IFDF>DIE2ZATHENIF=4191 
2949 POKE2S277;2 
2952 IFEU=ZITHENSYEID:HE=PEEK( 1209) : IFHE=ZFTHENWE=SEN 
2a69 ELS=HE:POKEPN: 22: PO=FO+23-HE 
2au79 IFPEEK<FOICDSZANDPEEK (POICISSANDPEEK PIISPIOZTHENFO=PR-ZI4HHE EN 
2929 IFPEEK(POI=ISTHENPOKESES72:8 POKE2E377: 226: FORT=1STQOASTER-. S:PFOKEITST 
2499 IFPEEKPOJ=3STHENNEXT :LE=2:G0T01292 
zıa9 IFPEEK(FRI=1G2THEN2122 
2119 POKEPGO: 19€: POKEPO+227922,4:G0T02228 
2129 GOSUB2798:PRINT"I" :%=29:7=298:G0SUB719:G0OSUR2742 
2139 PRINT"EI IT 7,7 aA_" GOSURDTAR 
2148 PRINT" IT 17" :PRINT"IE + NIT" :POKEI2SS. 111+ZE: IFZEISTHEN2ITG 
2159 COSUB2749: IFZE=ETHENPEINT" MIR. * ,7"5:G0T02499 
21€83 PRINT"MEI * "::FORT=1T05-Z8:PRINT" 1" NEXT: IFZROCDRATHEN24923 
2178 PRINT" HL 9" :GOSUP274 
2120 FORT=ATO1192:POKE3E373,15:FOKES4E:RND<LIFT7+1 
2181 PRINT" FIiesteintsinteleteietetetetet IT TIL IT IT RENT 
2139 EESonL :212+T172: POKE28875: T/2+191:POKE35376 , 127+T NEXT: POKEIERT?S.£ 
2131 7,8 
222% POK 376,9: POKE?727S5,8: POKE3ES74 ,8:POKE32277 , 254: FORT=1STOBSTEF-. 2 
zent < 3: T 
219 NEXT: POKE2E372. 8 8:POKE3E377:8 
225 PRINT" TTERKNPIRINIRIKLFTRIEIRTRIRTELKTET) < 
2229 LO=79:7=17:FORX=29T019STEP-1 GOSUP7IR: "PoReS ? S:pn} 73.2 
2249 POKESCHK+T#22+48:32:NEXT 
259 FÜRTQ=-AT21E: SE 73ER! FORTT= eT0108' ee NEAT 
2262 PRINT" IST <- € 
2279 PRINT" N 
2239 FPRINT"N D*- N -N 
2220 PRINT"T TeHNNt? De- tr Me ran"; 
22998 PRINT" OT TNO-HNMOTTNT": 
3218 PRINT" T-TetIeTHtte trete": 
2 PRINT" TFT et Terre tete" 
FOREE=27323T037222+22: E1=RNDC13#7+1:POKEEE: E1:POKEEE +22: E1 FOKEEE+44 ,E! 
POKEEE+ES.E1 
:POKEEE+28;E1:POKEEE+11@.: E1:NEX 
PRINTSSÄMMIERTTEEEIN IT. 2-7 TC 18T 5/ ans IT 
PRINT. IN 4 5": 
Ar=TIr:FORT=2T04:POKE4472+T:ASCCMIDSCAS:- T: 1 >) +84 NEXT PRINT" / AT 
EORESSTOBBOKENABBETSEIBEATEDELAEAT EI F00 RERTTTRIHTERBRRNBERBERNE TEN 
a PI=322 
POKESIS-RNDC1IFS+1: PRINT" SORDRDMDMDARDTRTEINTTRTRTSISDO IKT 7 A -T— 70 1a" 
SYSI0: IFPEEKC19AG1)=1THENSSB 
=X+1:7=6: IFK=21THENX=9 
ENSUP22B: PFOKEISS7E, 1S:POKEIE273,9:C0OTL2499 
a END 
PRINT" MM 17-7 27 \T- 
PRINT"MTI EN ER ee 
SYSIN: IFFEEKC1AR1)=RTHENZ247G 
ENTO2SR 
PRINT” RTL." :G0SUB2749 
PRINT 17-7 4_7 07T RR 2 Altı/ 
a PRINT"mEI WE 
SYSID: IFPEEKC1RGI)=ATHEN2S12 
COTO358 
A G0T02529 
SrS7163 
sg E22) <IBTHENT=Y-1 
IF*<OTHENY=Z 
?9 RETURN 
2529 POKEPO, 22:POKEPO+1:32:POKEFO+Z2; 32:POKEPO+22,32 
FA=SCO+X+7%422:A=4:POKEFRA. A: FPOKEFA+1.R:POKEFA+22: A: POKEFA+ZE:R 
P0=SC+X+Y422: POKEPO. 183: POKEPO+1 , 164: POKEFD+22: 179:POKEPO+23: 
2E12@ FORT=STOLO:NEKT 
2620 PO=SC+X+7#22:POKEPD: 151 :POKEPO+1. 152: POKEFN+22. 177:POKEPD+223, 
2629 RETURN 
2849 POKEPR:; 32:POKEPQ+1,22:POKEFN+22. 32: POKEPQ+23.22 
FA=00+%47#22A=4:POKEFA:A:POKEFA+L,A: FOKEFR+22:R:FOKEFA+22: Al 
PU=SCHX+ 7422: POKEFN: 1E1!POIKEPO+1 , 152: POKEPO+22: 177: POKEPO+Z3 
FÜRT=OTOLO: NEXT 
PI=SC+X+7#22:POKEPR: 163: POKEFO+1. 184: POKEPO+22. 173: POKEPO+23 
RETURN 
? POKE3E379,2:LE=LE+1: PRINT" Iumstilistrr3 IT MT sael = NL XL 
PT=1TOLE 
2719 PRINT": :SYTS729E:NENT: FORT= ATOZA9R : NEXT RETURN 
2729 POKE2E279:2: PRINT "TIERE NT se MIN SPRINT"MEU I ala / LOL 92" :LE=9:5 
v27298 
2722 FORT=2TI3B08 'NEXT:COTO8S9 
2740 POKE2£378., 8: POKE25377.9: FORT=1STOASTEP-.2:POKE36372: T:POKE3E378:239-T:NEXT 


2758 RETURN Listing 3. Das Basic e 


S7E9 EOTO27ER 3 De Dee 
READY. SUR IGBSTGEROREE (EEMNR) 


32 TIF= SnF+44 


TRIER] MR, /  BEEBER" 





Zeile 1280: Tauschen Sie 
das Semikolon gegen ein 
Komma aus. 
Buchbesprechung: 
Commodore 64. Der Com- 
puter für Einsteiger und 
Aufsteiger, Seite 96: 

Kostet nicht 49,80 Mark, 
sondern 29,80 Mark. 
Commodore 64 — Pro- 
grammieren leicht ge- 
macht 
Seite 97 

Auch dieses Buch konn- 
te ich teurer machen als 
es ist: Änstatt 49 Mark ist 
es bereits für 34 Mark zu 
haben. 

Grafikkurs, Seite 110, Spal- 
te 1: _ 

Die Überschrift soll hei- 
Ben: »Die Enttarnung ...« 
und nicht die Entartung. 
Seite 111, Spalte 1, 17. Zei- 
le von unten: 

Dort muß natürlich ste- 
hen: $FF und nicht $F. 
Seite 112, Spalte 1, 21. Zei- 
le von oben: 

Gemeint ist die Tabelle 
l. 


Seite 115, Tabelle 2: 

In der Spalte mit dem 
Label-Namen muß es un- 
ter FRETOP heißen 
MEMSIZ statt MEMZIZ 
Seite 113: 

Hier habe ich gewürfelt 


und ganze Absätze 
durcheinander gewor- 
fen: 

Spalte 1, unten: Biszudem 
Satz »Nehmen wir an, ein 
Byte sähe binär so aus: 
1111 1011« ist noch alles in 
Ordnung. Dann muß man 
weiterlesen: Spalte 2, Zei- 
len 12-10 von unten. Da- 
nach folgt die in Spalte 1 
gezeigte AND-Operation, 
in die sich beim Ergebnis 
aber noch ein Fehler 
geschlichen hat. Es muß 
nämlich herauskommen: 
0000 1011. Weiterlesen 
sollte man nun in Spalte 2, 
Zeile 9 von unten bis Spal- 
te 3, Zeile 3 von oben. Erst 
danach folgt der Text aus 
Spalte 1, Zeile3vonunten: 
»Halt!...«bisSpalte 2, Zeile 
13 von unten: »..überse- 
hen (Tabelle 4)«. Schließ- 
lich geht es dann normal 
weiter ab Spalte 3, Zeile 4 
von oben. 










Nun ist es endlich 

so weit! Wir gehen an die 
praktische Entwicklung 
von Programmen heran. 
Außerdem wird 

Strubs noch um ein 
kleines RENUMBER- 
Programm erweitert. 

Die Syntaxdiagramme der 
Basic-Erweiterungen 
werden das Arbeiten mit 
Strubs erleichtern. 


enn Sie Quellprogramme 
We:: achten Sie vor al- 

lem auf folgendes: Jeder der 
neuen Befehle muß durch ein Aus- 
rufezeichen gekennzeichnet wer- 
den, zum Beispiel IREPEAT, und be- 
nötigt — außer !DO — eine eigene 
Programmzeile. Folgende Konstruk- 
tion ist also zum Beispiel nicht er- 
laubt: 
40 !REPEAT X=X+1 !UNTILX>5 
Marken beginnen grundsätzlich mit 
einem Pfund-Zeichen £. 

Um die Korrektheit von Konstruk- 
tionen zu überprüfen, können Sie 
die Syntax-Diagramme in Bild 1 be- 
nutzen. Wenn sich ein Weg entlang 
der Linien finden läßt, der der Kon- 
struktion entspricht, dann ist diesein 
Ordnung. Siekönnensich aber auch 
an den verschiedenen Beispielen 
im Rahmen dieser Artikelfolge 
orientieren. Das beste Beispiel für 
ein Quellprogramm erhalten Sie, 
wenn Sie die Programmdiskette mit 
dem Programm Strubs bestellen 


C 64 








(wırd aller- 
dings erst ab der näch- 
sten Ausgabe angeboten). Diese 
Diskette enthältneben dem lauffähi- 
gen Objektprogramm, das in der 
letzten Ausgabe abgedruckt wurde, 
auch das ausführlich dokumentierte 
Quellprogramm von Strubs, dessen 
Abdruck aus Platzgründen nicht 
möglich ist. 

Bei der Blockschachtelung ist dar- 
auf zu achten, daß sich verschiede- 
ne Blöcke nicht überschneiden dür- 
fen und daß jeder Block korrekt ab- 
geschlossen wird. Hierbei kann 
man sich immer das Beispiel der 
FOR-NEXT-Schleifen in Basic vor 
Augen halten. Vollkommen unmög- 
lich ist beispielsweise folgende Kon- 
struktion: 

10 IREPEAT 

20 : !WHILE ... !DO 
30 !UNTIL ... 

40 : !EWHILE 

Nun wird es aber allmählich Zeit, 
mit der Praxis zu beginnen. Laden 
Sie das Programm Strubs in Ihren 
Computer und starten es mit»RUN«. 
Nun erscheint ein Menü, Geben Sie 
hier »E« ein, um in den Editbereich 
zu gelangen (siehe dazu die erste 
Folge). Der Computer meldet sich 
mit»READY«, das heißt also, Sie be- 
finden sich jetzt im Direktmodus. 
Hier können Sie nun (fast) so arbei- 
ten, als sei Strubs gar nicht vorhan- 
den. Geben Sie zunächst»NEW«ein. 
Jetzt können Sie das kleine Pro- 
gramm aus Bild 2 eintippen und wie 
sonst gewohnt mit »SAVE "RENUM- 
BER QP'"& abspeichen. 

Mit diesem »QP« hat es folgende 
Bewandnis: Bei Compilern ist es all- 
gemein üblich, die verschiedenen 
Files, die zu den einzelnen Phasen 
der Übersetzung gehören, einheit- 
lich zu kennzeichnen, der Austro- 
Compiler, arbeitet zum Beispiel mit 
den Files »name«, »p/name«, »z/na- 
me« und »c/name« Um Quellpro- 
gramme und Objektprogramme 
auseinanderhalten zu können, soll- 
ten Sie sich entsprechend von Än- 
fang an daran gewöhnen, dem Pro- 
gramme immer ein »QP« für Quell- 
programm beziehungsweise ein 


»OP« für Objekt- 
programm hinzuzu- 
fügen. Nun kann das Programm 
übersetzt werden. Geben Sie ein 
»IRETURN« und es erscheint das 
Menü von Strubs. Die Übersetzung 
wird mit »U« gewählt. Strubs fragt 
nun nach dem Namen für das Ob- 
jektprogramm. Geben Sie ein: RE- 
NUMBEROP Da dasübersetzte Pro- 
gramm direkt auf Diskette geschrie- 
ben wird, achten Sie darauf, daß die 
Floppy eingeschaltet ist. Nun er- 
scheint auf dem Schirm die Mel- 
dung »l. Lauf«, gefolgt von der Aus- 
gabe der Blockstruktur. Nach Been- 
digung des 2. Laufs sollte die Mel- 
dung »0 FEHLER« erscheinen. Ist 
dies der Fall, dann können sie mit 
»E« wieder in den Edit-Bereich ge- 
langen. Hier steht immer noch das 
Quellprogramm. Um sich das über- 
setzte Programm anzusehen, laden 
Sie es mit »LOAD "RENUM- 
BEROP"&«. Es sollte mit dem Listing 
in Bild 2 übereinstimmen. Äber star- 
ten sie das Programm nicht. 

Jetzt übersetzen Sie einmal genau- 
so verschiedene kleine Testpro- 
gramme — zum Beispiel die Beispie- 
le aus derletzten Folge — undsehen 
sich die Ergebnisse an. Dabei wer- 
den Sie feststellen, daß einige Be- 
dingungen im Objektprogramm in 
negierter Form erscheinen. Daß Ba- 
sic keine boolschen Variablen 
kennt, hat eine wichtige Konse- 
quenz: Beim Test, ob eine Variable 
ungleich 0 ist, darf man nicht — wie 
dies normalerweise häufig in Basic 
formuliert wird — beispielsweise 
schreiben 
IF A THEN ...., 
sondern muß bei jeder Bedingung 
die vollständige Form 
IFA<>0THEN .. 
verwenden. Dies liegt daran, daß 
die Bedingung NOT(A) außer für — 
immer erfüllt ist. 

Zweitens kann man sehen, daß in 
den Objektprogrammen manchmal 
neue Zeilen auftauchen, die das 
Quellprogramm nicht enthielt. 
Strubs generiert solche Zeilen als 
Sprungziele. Damit immer Platz für 
solche Zeilen ist, sollte der Abstand 
der Zeilennummern im Quellpro- 
gramm immer mindestens 2 betra- 
gen. 

Ist bisher alles wie oben beschrie- 
ben verlaufen, dann können Sie sich 
freuen. Sind irgendwelche Fehler 
aufgetreten, dann vergleichen Sie 
noch einmal genau das Testpro- 
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Strubs 





gramm mit dem Listing in Bild 2 und 
hoffen Sie, daß der Fehler hier liegt. 
Wenn Sie keine Äbweichungen fest- 
stellen, dann haben Sie Pech — Sie 
haben das Programm Strubs falsch 
eingetippt. 

Wie steht es aber mit Fehlern im 
Quellprogramm? Syntax-Fehler kön- 
nen sich auf drei verschiedene Ar- 
ten bemerkbar machen: Vor allem 
Fehler, die nicht mit den neuen Be- 
fehlen zusammenhängen, führen 
wie gewohnt beim Lauf des Objekt- 
programms zu den bekannten Feh- 
lermeldungen. Fehler in bezug auf 
die neuen Befehle auittiert Strubs 
mit Abbruch der Übersetzung, falls 
eine Fortsetzung nicht sinnvoll er- 
scheint, oder mit Eintragung in eine 
Fehlerliste und gleichzeitiger Kenn- 
zeichnung der fehlerhaften Zeile im 
Objektprogramm. Die Fehlerliste 
kann man sich mit »F« ansehen. 

Ein Abbruch der Übersetzung mit 
entsprechender Fehlermeldung am 
Bildschirm erfolgt vor allem bei Ver- 
stößen gegen die Blockstruktur (und 
bei Speicherplatzproblemen wie 
Stack-Overflow oder Listen voll). Bei 
Fehlern mit den Blöcken — zum Bei- 
spiel vor einem ELSE fehlt das IF 
oder zu einem WHILE fehlt das EW- 
HILE etc. — gibtesein Problem, das 
nicht nur bei Strubs, sondern gene- 
rell bei allen Compilern auftaucht. 
Der Fehler wird nicht an der Stelle 
seines Auftretens bemerkt, sondern 
erst viel später. Die Zeilennummer 
bei einer Fehlermeldung wie 
»BLOCKSCHACHTELUNG: AN- 
FANG FEHLI«, sagt also nichts wei- 
ter aus, als daß der Fehler erst hier 
bemerkt wurde. Um bei der Suche 
nach dem Fehler zu helfen, gibt 
Strubs aber während der Überset- 
zung ein Schema der Blockstruktur 
aus, mit dessen Hilfe sich solche 
Fehler leicht lokalisieren lassen. 

Bei Meldungen wie »zu viele Mar- 
ken«, »zu viele WHILE/REPEATk«etc. 
empfiehlt es sich, das Programm in 
kleinere Teile zuzerlegen, diese ge- 
trennt zu übersetzen und anschlie- 
ßend wieder zusammenzufügen. 

Wie man dazu vorgeht, behan- 
deln wir weiter unten. Die entspre- 
chenden Listen sind allerdings so 
großzügig dimensioniert, daß die- 
ser Fall sehr selten eintreten wird. 

Sollte während der Übersetzung 
aus irgendeinem Grund ein unkon- 
trollierter Programmabbruch erfol- 
gen (zum Beispiel OUT OF MEMO- 
RY ERROR), dann empfiehlt es sich 
mit »GOTO 5000« dafür zu sorgen, 
daß offene Disk-Files ordnungsge- 
mäß geschlossen werden. 


Die Beseitigung von Fehlern, die 
Strubs bei der Übersetzung ent- 
deckt, gestaltet sich relativ einfach: 
Notieren Sie sich die Zeilennum- 
mern zu jedem Fehler und schalten 
in den Editbereich (mit »E«). Dort 
kann das Quellprogramm geändert 
werden, dann wird mit »!« und Wahl 
von »U«neu übersetzt. Da das Quell- 
programm solange im Edit-Bereich 
bleibt, bis es durch »NEW« oder La- 
den eines anderen Programms ge- 
löscht wird, kann dieser Vorgang so- 


lange wiederholt werden, bis der 





können, erfordert auf der anderen 
Seite allerdings eine gewisse Diszi- 
plin, damit die Verbindung zum 
Quellprogramm nicht verloren geht. 
Jede vorgenommene Änderung 
sollte sorgfältig notiert und nicht zu 
viele Änderungen auf einmal vorge- 
nommen werden. Dann wird wieder 
das Programm Strubs und das 
Quellprogramm (in den Editierbe- 
reich) geladen. Verbessern Sie das 
Quellprogramm entsprechend Ih- 
ren Notizen und übersetzen es er- 
neut. Dieser Vorgang wird solange 


Bild 3. RENUMBER- ern für Strubs 


letzte Fehler beseitigt ist. Sobald die 
Übersetzung mit der Meldung »0 
Fehler« beendet wird, geht es ans 
Testen des Objektprogramms. 

Hierzu wird Strubs durch Eingabe 
von »S« verlassen. Dadurch wird ein 
Kaltstart ausgeführt, der die Inter- 
pretererweiterung abschaltet und 
den Speicher säubert. Nun laden 
Sie das Objektprogramm unter dem 
Namen, den Sie bei der Überset- 
zung angegeben haben und starten 
es mit RUN. Dieses Programm wird 
nun wie jedes normale Basic-Pro- 
gramm ausgetestet. Dazu können 
selbstverständlich auch Toolkits mit 
TRACE- und DUMP-Funktionen ver- 
wendet werden. Da die Zeilennum- 
mern denen des Quellprogramms 
entsprechen, empfiehlt es sich, ein 
Listing des Quellprogramms zur 
Hand zu haben. Fehler in der Pro- 
grammlogik lassen sich damit leich- 
ter finden und beheben. 

Die Bequemlichkeit, die Strubs 
dadurch bietet, daß Programmän- 
derungen und Verbesserungen im 
Objektprogramm selbst vorgenom- 
men und sofort ausgetestet werden 


wiederholt, bis das Ergebnis zufrie- 
denstellend ist. 

Dieser soeben beschriebene Ab- 
lauf kann allerdings in den meisten 
Fällen vereinfacht werden: Bis auf 
zwei Ausnahmen können Objekt- 
programme auch direkt im Editbe- 
reich getestet werden. Damitentfällt 
die Notwendigkeit, Strubs für jede 
Übersetzung neu zu laden. Nach 
der Übersetzung wird mit »E« der 
Editbereich gewählt, dort das Ob- 
jektprogramm geladen und gete- 
stet. Anschließend wird wieder das 
Quellprogramm in den Editbereich 
geladen, verbessert und mit »I« und 
»U« neu übersetzt und so weiter. 

Bei Programmen, die nicht im 
Editbereich getestet werden kön- 
nen, handelt essich 1, um Program- 
me, die an einer festgelegten Stelle 
im Speicher stehen müssen. Strubs 
selbst ist solch ein Programm. Es 
muß unbedingt am normalen 
Basic-Anfang stehen. Solche Pro- 
gramme sind allerdings ziemlich 
selten. Häufiger dagegen findetsich 
der 2. Fall: Programme, die den 
Speicherbereich von 700 bis 800 
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verändern. Hier steht die in Folge 1 
erwähnte Interpreter-Erweiterung 
von Strubs. Dadurch sind vor allem 
Programme betroffen, diein diesem 
Bereich Sprites oder Maschinen- 
programme benutzen. 

Kommen wir noch einmal auf das 
Schreiben und Editieren von Quell- 
programmen zurück. Bisher haben 
wir nur davon gesprochen, daß die 
Programmtexte im Editbereich edi- 
tiert wurden. Diese Methode hatins- 
besondere bei der Entwicklung um- 
fangreicher Programme einen 


Sie im Programm die Zeilen 45600 
bis 45680 einfach weglassen. Damit 
fallen dann die oben erwähnten Be- 
schränkungen weg, das heißt die 
unter Fall 2 erwähnten Programme 
können im Editbereich getestet wer- 
den und Strubs kann zusammen mit 
einer Programmierhilfe benutzt 
werden. Äber editieren Sie keine 
Quellprogramme unter Simons Ba- 
sic, Dazu sind weitere Anpassungen 
erforderlich, aufdie wir in der näch- 
sten Folge näher eingehen. Insbe- 
sondere wenn ein Programm aus 





Bild 4. Diese Änderungen sind an Strubs vorzunehmen, 
um es auf einen VE 20 mit mindestens 16 KByte Speichererweiterung lauffähig zu machen 
(zusätzlich zu den Änderungen in Ausgabe 5, Seite 117). 


Nachteil: Da Strubs selbst mit einer 
Interpreter-Erweiterung arbeitet, 
kann man nicht gleichzeitig andere 
Interpreter-Erweiterungen — zum 
Beispiel Toolkits oder das DOS — 
benutzen. Möchte man auf Befehle 
wie MERGE, AUTO, FIND etc. nicht 
verzichten, dann kann man die 
Quellprogramme vollkommen un- 
abhängig von Strubs entwickeln und 
erst anschließend das fertige Quell- 
programm in den Editbereich la- 
den. 

Es zeigt sich, daß die meisten Be- 
schränkungen bei der Arbeit mit 
Strubs ihren einzigen Grund in der 
kleinen Interpreter-Erweiterung ha- 
ben. Wie bereits in der ersten Folge 
erwähnt, besteht der einzige Sinn 
dieser Erweiterung darin, das Star- 
ten von Strubs vom Editbereich aus 
dadurch bequemer zu gestalten, 
daß die Befehlsfolge 
POKE 44,8: RUN 
durch Eingabe von »ı« abgekürzt 
werden kann. Wenn Sie bereit sind, 
diese Befehlsfolge jedesmal von 
Hand einzugeben, können Sie auf 
die Erweiterung verzichten, indem 


fertigen Modulen zusammengesetzt 
werden soll, sind solche Program- 
mierhilfen erforderlich. 

Dieser Vorgang verläuft auf der 
Quellprogramm-Ebene aufgrund 
der Unabhängigkeit von Zeilennum- 
mern relativ einfach. Die einzelnen 
Programmteile werden in beliebi- 
ger Reihenfolge zusammengesetzt. 
Dazu kann ein Toolkit oder auch das 
kleine MERGE-Programm aus dem 
64’er, Ausgabe 4/84, benutzt wer- 
den. Dabei können ruhig gleiche 
Zeilennummern auftreten und auch 
die Reihenfolge der Zeilennum- 
mern ist beliebig. Anschließend 
wird der fertige Programmtext mit 
Hilfe einer RENUMBER-Routine ver- 
nünftig durchnumeriert. Da Basic 
keine lokalen Variablen kennt, ist al- 
lerdings vor dem Zusammensetzen 
auf die Variablennamen zu achten. 
Um unerwünschte Seiteneffekte zu 
vermeiden, sind eventuell einige 
Umbenennungen vorzunehmen. Et- 
was aufwendiger gestaltet sich der 
Prozeß, wenn verschiedene Pro- 
grammteile erst auf der Objekt- 
Ebene zusammengesetzt werden 


Strubs 





sollen. Hierbei ist darauf zu achten, 
daß sich die Bereiche der Zeilen- 
nummern nicht überschneiden. 
Weisen Sie jedem Programmteil ei- 
nen bestimmten Zeilennummernbe- 
reich zu und verlegen diesen Teil 
gegebenenfalls mit RENUMBER in 
diesen Bereich. Anschließend wer- 
den nun in jedem Programmteil alle 
externen Routinen, die dieser Teil 
aufruft, mit Hilfe der EXTERN-De- 
klaration vereinbart (das sind die 
Routinen, die erst nach der Überset- 
zung angefügt werden). Das oben 
für die Variablennamen gesagte gilt 
hier entsprechend. Jetzt können die 
einzelnen Teile getrennt übersetzt 
und anschließend in der richtigen 
Reihenfolge verknüpft werden. 
Falls Sie keine Erweiterung besit- 
zen, dann können Sie Strubs um eine 
RENUMBER-Routine erweitern: Fü- 
gen Sie die Zeilen aus Bild 3 in das 
Objektprogramm von Strubs ein — 
und, falls Sie das Quellprogramm 
besitzen, dort entsprechend die 
Zeilen aus Bild 2. Um nun diese Rou- 
tine anzubinden, müssen nur noch 
zwei Zeilen in das Menü eingefügt 
werden: 
40110 PRINT "[CDOWN! [REVON!R 
[REV OFFIENUMBER" 
und 
40210 IF L$="R" THEN GOSUB 
55000: GOTO 40050 
beziehungsweise für das Quellpro- 


gramm: 
40210 IF Z$="R" THEN GOSUB 
£RENUMBER: GOTO £MENUE 

Diese Routine kann dann mit »R« 
aufgerufen werden, um ein Pro- 
gramm, das sich im Editbereich be- 
findet, umzunumerieren. Das Pro- 
gramm Strubs arbeitet nicht mit der 
Datasette, sondern es benötigt eine 
Floppy. Damit der für Strubs unter- 
halb des Ecit-Bereichs reservierte 
Platz nicht überschritten wird, ist 
darauf zu achten, daß beim Eintip- 
pen des Programms keine Blanks 
eingefügt werden. 

Der Editbereich beginnt bei 
40*256+1. Vor dem |]. Start von 
Strubs läßt sich mit 'PEEK(46) fest- 
stellen, ob Strubs diese Grenze 
nicht überschreitet (der Wert muß 
kleiner als 40 sein, im Originalpro- 
gramm liegt er bei 34). 

Da Strubs den Zeiger für 
»Variablen-Anfang« heraufsetzt, soll- 
te es immer von dem |. Start abge- 
speichert werden (auch bei Verän- 
derungen). Sollte man dies einmal 
vergessen, kann man durch »POKE 
48,39:CLR« vor den Abspeichern 
Strubs in die richtigen Grenzen ver- 
weisen. (Mathias Törk) 
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dem Weg zur hochauflösenden 

Grafik beginnen, sollnoch eine 
kurze Rückschau auf den in derletz- 
ten Folge bewältigten Weg gehälten 
werden: Wir können jetzt mit dem 
Binär-und dem Hexadezimalsystem 
umgehen und haben gelernt, wie 
man Zahlen darin ausdrückt. Wir 
haben gesehen, wie der Computer 
sich Adressen merkt und konnten 
mit diesem Wissen RAM-Bereiche 
schützen. Wir haben wichtige Zei- 
ger in unserem Computer kennen- 
gelernt. Das Setzen oder Löschen 


B= wir die dritte Etappe auf 





Bild 1. Der Buchstabe A, dargestellt 
im Mehrfarbenmodus 


XXXOXXXX (53270), Bit 4 = 0 
OR 
00010000 Maske, dez. 16 


= XXXIXXXX (53270), Bit 4 = 1 


Bild 2. Das Setzen einzelner Datenbits mittels 
logischer OR-Verknüpfung 


von beliebigen Bits in einem Byte 
beherrschen wir ebenso wie die 
Definition und Benutzung eigener 
Zeichen. Wenn Sie seit der letzten 
Folge viel ausprobiert und so Übung 
gewonnen haben, dann kennen Sie 
Ihren Computer schon ganz qut. 
Heute werden wir zunächst etwas 
mehr Farbe ins Spiel bringen, in- 
dem wir mehrfarbige Zeichen oder 
Zeichen mit einem anderen Hinter- 
grund benutzen. Dann betreten wir 
das Gemach von Dornröschen (der 
hochauflösenden Grafik) und. küs- 
senes wach — im übertragenen Sin- 
ne natürlich. Nach dieser Ankündi- 
gung sind die ersten schon aufge- 
brochen. Also gehen wir auch los. 
Erinnern Sie sich bitte an Bild 11 
ausderletztenoderanBild8ausder 
ersten Folge. Egal, obessich um Zei- 
chen aus dem Zeichen-ROM oder 
um selbstdefinierte Zeichen han- 
delt, eines haben sie gemeinsam: 
Überall dort, wo sich im Bit-Muster 


ann kb. 





6 64 


In dieser Folge werden wir die ersten Schritte in das 
Reich der hochauflösenden Grafik wagen. Doch zu- 
nächst soll die Grafik etwas farbiger werden. Das 
heißt, wir erzeugen mehrfarbige Zeichen und variieren 


die Hintergrundfarbe. 


des Zeichens eine | befindet, also 
ein Bit gesetzt ist, taucht beider Dar- 
stellung auf dem Bildschirm ein 
Punkt in der Zeichenfarbe auf, die 
im Bildschirmfarbspeicher angege- 
ben ist. Diese Farbe haben wir ent- 
weder im Direktmodus durch 
Drücken der »CTRL«- oder »COM- 
MODORE«-Taste in Kombination mit 
einer Ziffermntaste festgelegt oder 
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durch ein»POKE 646, Zeichenfarbe« 
oder auchdurch POKEn eines Farb- 
codes in die entsprechende Stelle 
des Bildschirmfarbspeichers. 


Bit-Map-Inhalt: Byte 0 BitO 
Bit 1 
Bit 2 
Bit 3 





Überall dort, wo im Bitmuster des 
Zeichens eine (0 ist, taucht bei der 
Darstellung auf dem Bildschirm 
nichts auf, das heißt dort erscheint 
die Farbe des Bildschirmhinter- 
grundes. Jedes Bit aus dem Bit- 
Muster wird also im Normalbetrieb 
und auch bei selbstdefinierten Zei- 


chen einzeln interpretiert. Es gibt 
nunauch andere Möglichkeiten der 
Interpretation des Bit-Musters, und 
eine davon wird im Mehrfarbenmo- 
dus angewendet. Hier sind die Bits 
des Zeichens zu Paaren zusammen- 
gefaßt (Bild )). 

Das ist der Buchstabe »A« mit 
paarweise zusammengefaßten Bits. 
Es ergeben sich vier verschiedene 
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Grafikmodus 
Bild 3. Normal- und Grafikmodus 


Möglichkeiten der Bit-Kombination: 
00, 01, 10, 11 

Erinnern Sie sich an die Binärzah- 
len, dann erkennen Sie, daß diese 


Bild 4. Bit-Mapping 


vier Möglichkeiten den Zahlen 0, ], 
2, 3entsprechen. Sie wirken wie Zei- 
ger, die in verschiedene Register 
des VIC-I-Chip deuten (Tabelle |]; 
siehe auch Registerübersicht in der 
ersten Folge). 

Dort also, wo ein Bitpaar 00 steht, 
wird esinder Farbe des Bildschirm- 
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hintergrundes angezeigt, wie bisher 
im Normalmodus mit einem Bit 0 ge- 
schehen. In Adresse 53281 haben 
wir bisher ja immer schon die Bild- 
schirmfarbe festgelegt. Hinzu kom- 
men die Register 34 und 35 des VIC- 
II-Chips entsprechend den Adres- 
sen 53282 und 53283. Hier können 
wir nun weitere Farben eingeben, 
die an den Stellen auf dem Bild- 
schirm gezeigt werden, an denen 
die dazugehörige Bit-Kombination 
(01 oder 10) steht. Erlaubt sind alle 
Farben (0 bis 15). 

Nun sind es noch zwei Vorausset- 
zungen, die uns vom Mehrfarben- 
Zeichen trennen: Dem Computer 
muß mitgeteilt werden, daß er das 
Bit-Muster in Paaren statt einzeln in- 
terpretieren soll. Das geschieht da- 
durch, daß man im Register 22 
(Adresse 53270) das Bit 4 auf 1 setzt. 
FallsSie sich nicht mehr so genaueer- 
innern, wie wir sowas in der letzten 
Folge gemacht haben — hier ist es 
nochmal gezeigt (Bild 2). 

Es muß also eingegeben werden: 
POKE 53270,PEEK(53270) OR 16 

Dieses Byte 53270 im VIC-II-Chip 
ist ein Beispiel dafür, wie sorgfältig 
man aufdasrichtige Setzen oder Lö- 
schen von Bits achten sollte. Wenn 
Sie sich die Registerübersicht in der 
1. Folge und dort besonders dieses 
Byte ansehen, stellen Sie fest, daß 
fast jedes Bit eine andere Funktion 
zu erfüllen hat. 

Sollten Sie die obige Basic-Zeile 


110 


im Direktmodus eingegeben ha- 
ben, dann verwandeln Sie alle Buch- 
staben auf dem Bildschirm in mehr- 
farbige Zeichen. Auf einem 
Schwarzweiß-Gerät sind sie dann 
kaum mehr zu erkennen. Hier stellt 
man auch den Unterschied zwi- 
schen einem Farbfernseher und ei- 
nem Farbmonitor fest. Der letztere 
trennt die unterschiedlichen Farben 
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Bild 5. Zusammenhang zwischen 
Bildschirm und Bit-Map 
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deutlich voneinander, während auf 
dem Fernsehschirm häufig Farbmi- 
schungen auftreten. Deswegen soll- 
te die Farbgebung in die Register 34 
und 35 individuell ausfallen: Probie- 
ren, probieren ... 

Das Ausschalten des Mehrfarb- 
Zeichen-Modus geschieht durch Lö- 
schen des Bit 4 in 53270 mit 
POKE 33270, PEEK(353270) AND 239. 
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Bild 7. Hier wird die Byte-Adresse zum Punkt (110,100) ermittelt ... 
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Bild 6. Bildschirmkoordinaten bei hochauflösender Grafik 
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Bild 8. ... und hier die Bit-Adresse 


Byte 3944 
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Falls Sie vorhin beim Anschalten 
des Mehrfarb-Modus nicht die nor- 
male Zeichenfarbe (Code 14), son- 
dern eine zwischen 0 und 7 vorlie- 
gen hatten, dann haben Sie keine 
Veränderung bemerkt. 

Und damit sind wir bei der zwei- 
ten Voraussetzung: Es kommt näm- 
lich auch noch auf den Inhalt jeder 
Bildschirmfarbspeicherstele an 
(55296 bis 56295). Erst wenn für eine 
solche Zelle das Bit 3 gesetztist (= ]), 
findet man Zeichen im dazugehöri- 
gen Bildschirmplatz in der Mehr- 
farbdarstellung. Sehen wir uns dazu 
noch einige Farbcodes an: 


1 = bin. 0001 

7 = bin. O1ll 
Bit 3 ist gelöscht 

8 = bin. 1000 
15 = bin. 1111 
Bit 3 ist gesetzt 


Der Farbcode bewirkt also zwei- 
erlei: 
a) Er gibt an, ob ein Zeichen im 
Mehrfarbmodus dargestellt wird, 


und 
b) er verleiht den Bit-Paaren »11« die 
Farbe. 

Zur Demonstration können Sie ja 
mal folgendes Son eingeben: 


in die Hintergrundfarbregister se- 
hen, dann werden Sie dort nicht — 
wie im Programm veranlaßt — die 
Ziffern 610 sehen, sondem 
246,241,240. Das liegt daran, daß die 
Bits 4 bis 7 dieser Register für die 
Farbgebung nicht benutzt werden 
und vom Betriebssystem auf 1 gehal- 
ten werden. Die Binärzahl 1111 0000 
entspricht dem Dezimalwert 240. 
Deswegen muß man zur Farbcode- 
zahl diese 240 addieren, um den 
Speicherinhalt zu erhalten. 

Wieder eine andere Artder Inter- 
pretation findetman beim Modusfür 
erweiterte (oder veränderte) Hinter- 
grundfarben. Damit kann man zum 


(nicht das Zeichen selber) auf den 
Farbcode, der in 53282 steht. Ähn- 
lich verläuft es mit dem reversen A 
(Bildschirmcode 129) und dem re- 
versen geshifteten A (Bildschirmco- 
de 193). In die Register 53281 bis 
53284 können alle Farbcodes einge- 
geben werden. 

Damit der Computer die Codesin 
dieser besonderen Weiseliest,muß 
ihm das angezeigt werden, indem 
man im Byte 53265 das Bit 6 uf 1 
setzt. Das sollten Sie schon können: 
POKE 53265,PEEK(53265)OR 64 


Das Abschalten dieses Modusge- - 


schieht durch Löschen des gechd 
Bits: 


Bit-Paar zeigt auf: 


Bedeutung 


Hintergrundfarbe Nr. 0 
Hintergrundfarbe Nr. ] 
Hintergrundfarbe Nr. 2 
ll bringt die Farbe, die in Bit 0 bis 2 des Bildschirmfarbspeichers vorhanden ist 





Tabelle 1. Bedeutung von Bit-Kombinationen im Mehrfarbenmodus 


> (147) 
PORE 53281, 6:POKE 53282,1:POKE 53283,0:REM LADEN DER 3 FARBREGISTER 
POKE 53270,PEEK(53270)OR 16:REM ANSCHALTEN DES MEHRFARBEN- 


MODUS 


POKE 646,0:REM ZEICHENFARBE AUF (XBLK) 
PRINT CHR$(IT)’JETZT IST DER MEHRFARBENMODUS”:PRINT 


"EINGESCHALTET" 


PRINT CHR$(IT)”IN DIE BILDSCHIRMFARBZEILEN IST ABER DIE”;:PRINT”O 


EINGEGEBEN" 


PRINT CHR$(IT)"DESWEGEN IST DIE ZEICHENDARSTEL- 


LUNG";:PRINT'"NORMAL’ 


POKE 646,14: REM ZEICHENFAÄRBE AUF 14(HBLU) 
PRINT CHR$(IT)"DER FARBCODE IST JETZT 14” 
PRINT CHR$(IT)"DER MEHRFARBEN-MODUS IST SICHTBAR” 


END 

POKE 53270,PEEK(53270)AND 239:REM AUSSCHALTEN DES MEHRFARBEN- 
MODUS 
END 


Wenn dieses Programm mit Zeile 
110 beendet ist, befinden Sie sich 
weiterhin im Mehrfarbenmodusund 
können nach Herzenslust durch PO- 
KE 646, »Zeichenfarbe«, oder mit 
»CTRL«- beziehungsweise »COM- 
MODORE«-Taste und einer Ziffern- 
taste die Zeichenfarbe ändern und 
den Effekt beobachten. Übrigens ist 
der Cursor unterhalb der READY. 
Meldung noch da — was Sie durch 
eine Änderung der Zeichenfarbe 
sofort feststellen können. Sollten Sie 
genug von diesem Modus haben, 
dann geben Sie ein CONT »RE- 
TURN« und das Programm schaltet 
wieder den Normalmodus ein. 

Sollten Sie zufällig mal durch 
PRINT PEEK(5328]),PEEK(53282), 
PEEK(53283) 


ı19A =ukara 





Beispiel ein grünes Zeichen mit ro- 
tem Hintergrund auf einem gelben 
Bildschirm darstellen. Hier wird der 
Bildschirmcode des Zeichens aufei- 
ne vom Normalmodus unterschiedli- 
che Weise gelesen. Bit 7 und Bit 6 
der Bildschirmcodezahl geben 
nämlich jetzt einen Zeiger auf Farb- 
register ab. Das geschieht in der 
Weise, wie in der Tabelle 2 gezeigt 
wird, 

Es zeigt sich, daß nur 64 Zeichen 
dargestellt werden können — also 
keine Grafikzeichen. Verwendet 
ınan das normale A (Bildschirmco- 
de ]), dann zeigen die Bits7und 6 auf 
das normale Hintergrundregister 
53281. Verwendet man das geshifte- 
te A Bildschirmcode 65), verändert 
sich die Hintergrundfarbe des A 


POKE 53265,PEEK(63265)AND 191 
Die Zeichenfarbe bleibt von der. 
ganzen Umstellung unberührt. Man 
kann sie aufdienunschon bekannte 
Weise jederzeit ändern. h 
Warum kann man eigentlich in 


diesem Modus nur 64 Zeichen dar- = 


stellen? Die Antwort darauf liegt 
darin, daß nur die Bits O und 5 für 
den Zeichencodezur : 
hen, also E 
von 00 0000 Zy@« 

bis 11 1111 &»% 

mit Hintergrundfarbe aus 532831 

Jede weitere Erhöhung beeinflußt 
die Bits Zund 6, wirdaberindenun- 
teren 6 Bits nicht mehr we 
men. Dort beginnt einfach die zaäh- : 
lung wieder ab 0: 

(1)00 0000 = 64, 
das bedeutet Zeichen 0 (@) mit Hin- 
tergrundfarbe aus 53282. 

Ganz nett wäre es ja eigentlich, 
wenn man sowohl den Modus miter- 
weiterten Hintergrundfarben als 
auch dem Mehrfarbzeichenmodus 
miteinander kombinieren könnte. Je- 
der Versuch, daszu tun, endetmitei- 
nemschwarzen Bildschirm ohnejeg- 
liches Zeichen. An diese Möglich- 
keit haben die Schöpfer des VIC-II- 
Chip offenbar nicht gedacht. 

Betrachten Sie jetzt doch einmal 
das nachfolgende Demonstrations- 
programm. Vor der Eingabe schal- 
ten Sie bitte durch gleichzeitiges 
Drücken der» COMMODORE«-und 


EAunermmnhn 2 /Tumi 1NOA 
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poke chr$(147) 
poke 53281,6:poke 53282,0:poke 53283,7:poke 53284,10:rem laden der farbregi- 
ster 
poke 53265,peek(53265) or 64:rem anschalten des modus 


print chr$(17)"der modus ist eingeschaltet aber der” :print”zeichencode ist 


kleiner als 64” 


print chr$(IN)" JETZT WIRD MIT GESHIFTETEN ZEICHEN«print"GEDRUCKT” 
print chr$(IT)chr$(18)”der druck mit reversed zeichen hat die” 

print chr$(18)"hintergrundfarbe von register 53283’ 

print chr$(l44)chr$(17)chr$(18)"REVERSED UND GESHIFTETE ZEICHEN” 


print chr$(154):end 
poke 53265,peek(53265)and 191 
end 


»SHIFT«Tasten den Kleinschriftmo- 
dus ein. 

Ebenso wie beim vorigen Pro- 
gramm können Sie nach dem ersten 
END in Zeile 80 noch mit den ver- 
schiedenen Kombinationen von Zei- 
chenfarbe und Zeichencode her- 
umexperimentieren. Wenn Sie ge- 
nug davon haben, erreicht ein 
CONT »RETURN« die Rückkehr in 
den Normalzustand. 

Auch dieser Modus ist mit selbst- 
definierten Zeichen ebenso ver- 
wendbar wie mitden ROM-Zeichen. 


Wir betreten Dorn- 
röschens Schloß: 
Das Bit-Mapping-Prinzip 


Es ist soweit! Wir stehen an der 
Schwelle zur hochauflösenden Gra- 
fik. Wenn wir bisher mit Zeichen al- 
ler Art auf dem Bildschirm gearbei- 
tethaben, waren diese immer durch 
acht Bytes definiert: entweder 
durch das Zeichen-ROM oder 
durch einen von uns erstellten alter- 
nativen Zeichensatz im RAM. Jeder 
Aufruf eines Zeichencodes füllte ei- 
nen Bildschirmspeicherplatz, zum 
Beispiel 1024 mit diesem Zeichen, 
also mit 8 Byte. Zugriff auf einzelne 
Byte hatten wir nur beim Selbstdefi- 
nieren, aber dieser Zugriff legte 
dann eben in der Anwendung auch 
wieder 8 Byte auf einmal fest. Wenn 
es nun eine Möglichkeit gäbe, stän- 
dig Zugriff auf einzelne Bytes zu ha- 
ben und die Punktmuster jedes By- 
tes verändern zu können, dann hät- 
ten wir ganzandere Aussichten (Bild 


I). 

Überlegen wir mal: Statt 1000 Byte 
(40 x 25) hätten wir dann 8000 Byte 
(40x 25x 8)zu je 8 Bit, alsoinsgesamt 
64000 Bildpunkte, die ansprechbar 
wären! Genau das geschieht beim 
sogenannten Bit-Mapping. Der 
Computer legt sich gewissermaßen 
eine Landkarte dieser 8000 Byte an 
und bildet ihren Inhalt auf dem Bild- 
schirm ab. Auf dem Bildschirm kön- 





POKE 53265, PEEK(53265)OR 32 
eingeben. Danach sieht der Bild- 
schirm allerdings recht merkwür- 
dig aus, Das ist auch kein Wunder, 
denn wie gesagt wird jetzt der Inhalt 
der Bit-Map dargestellt, und wir ha- 
ben dem Computer noch nicht mit- 
geteilt, wo die Bit-Map zu finden ist. 
Das geschieht durch Setzen des Bit 
3 des VIC-Il-Registers mit der 
Adresse 53272 auf den Wert 0 oder 
1. Dabei gelten die Zusammenhän- 
ge nach Tabelle 3. 


Beispiel »A« 


Codebe- 
reich 


76543210 


0- 63 


64-127 
Reversed Zei- 
chen 
Reversed 


(SHIFT/-Zeichen 


128-191 


192-255 


Bit 3 
von 53272 


0- 7999 
8192 - 16191 





nen wir mit dieser Karte nun (siehe 
Bild 3) in der Senkrechten (y) 25x 8 
= 200 Positionen und in der Waage- 
rechten (x) 40 x 8 = 320 Positionen 
ansprechen. Immer dann, wenn ein 
Bitin der Bit-Map gesetzt (= ])ist, er- 
zeugt das automatisch das Aufleuch- 
ten eines der 64000 Bildpunkte auf 
dem Bildschirm. Ist ein Bit gelöscht 
(= 0), dann ist der Bildpunkt leer 
(siehe Bild 4). 


Dornröschen 
erwacht 


Das Anschalten dieses Bit-Map- 
Modus ist der Kuß, den wir Dormrö- 
schen geben. Seien Sie nicht vorzei- 
tig enttäuscht. Dornröschen hat 1000 
Jahre geschlafen und wir müssen 
mit viel Geduld ihre Fähigkeiten 
nach und nach entwickeln helfen. 
Wenn Dornröschen jetzt erwacht, ist 
es hilflos wie ein neugeborenes 
Kind. Nach dieser Wamung also ge- 
hen wir so vor: Im VIC-II[-Chip Regi- 
ster 53265 setzen wir Bit 5 auf ], in- 
dem wir den Befehl 





Tabelle 2. Bildschirmcode und Mehrfarbenmodus 


Ort der Bit-Map 
(Adressenbereich) 


Tabelle 3. Mögliche 
Bereiche des Bit-Map 


Der normale Inhalt von Byte 53272 
ist 21 (das kennen wir noch aus der 
letzten Folge). Binär ausgedrückt ist 
das: 0001 0101 

Bit 3 ist also 0. Alles, was in diesem 
Bit-Map-Speicherbereich von 0 
(Zeropage!) bis 7999 (mitten im 
Basic-RAM) existiert, wurde beim 
Anschalten des Bit-Map-Modus ab- 
gebildet. Und weil die Zeropage 
laufend vom Betriebssystem für sei- 
ne ständigen Arbeiten verwendet 
wird, sind im oberen Bereich unse- 
res seltsamen Bildes auch flimmern- 
de Stellen zu sehen — wo also lau- 
fend Bits gesetzt und gelöscht wer- 
den. Sehen Sie sich Ihren Bild- 
schirm mit diesem merkwürdigen 
Abbild noch etwas genauer an. Et- 
wa von der Mitte an sehen Sie Zei- 
chen abgebildet. Dort liegt die Spei- 
cherzelle 4096, von der an das Gei- 
sterbild der Zeichen (siehe Folge ]) 
liegt. Wir sehen also Gespenster! 

Nun sollten Sie mit »RUN/STOP« 
und »RESTORE« wieder den Nor- 
malzustand herstellen. Dann schal- 
ten Sie mit folgenden Programmen 
den Hochauflösungsmodus und die 
spezielle Bit-Map ab 8192 an: 

10 PRINT CHR$(147:POKES53265, 


kam IND 
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PEEK(53265)OR 32 
20 POKE 53272,PEEK(53272)OR 8 
Der letzte Befehl besorgt das Set- 
zen des Bit 3 auf 1. Außerdem fügen 
wir vorsorglich noch die Rückkehr 
in den Normalmodus an 
1l0 POKE 53265 ‚PEEK(53265)AND 
223 
Löschen des Bit 5 in 53265, 
120 POKE 53272,PEEK(53272)AND 
247 
Löschen des Bit 3 in 53272. 
Dazu bauen wir noch eine GET- 
Abfrage ein: 
100 GET A&:IF A$ =" " THEN 100 
Starten Sie jetzt mit RUN. Die Bit- 
Map ab 8192 wird auf dem Bild- 
schirm gezeigt. Das ist leerer Spei- 
cher, so wie wir ihn in Form von Zah- 
len (Blöcken von 0 und 255) schon in 
der 1. Folge kennengelemt haben. 


Die ersten Schritte 


Sie erinnern sich vielleicht auch 
daran, daß manchmal, wenn auch 
selten, andere Zahlen eingestreut 
waren. Deswegen sieht man hier 
auch nicht immer ganz schwarze 
oder ganz helle Blöcke, sondern 
häufig welche mit Einsprengseln. 
Überall dort, woein Byte der Bitmap 
den Wert 255 hat, steht ja binär 1111 
1111, das heißt 8 Bildpunkte auf dem 
Bildschirm sind angeschaltet. Wir 
sehen schon, wir müssen den Spei- 
cher noch löschen, also überall 0 
hinschreiben: 
30 B=8192:FOR I=0 TO 7999: POKE 
I+BO0:NEXTI 

Wenn Sie diese Programmzeile 
noch einfügen und dann mit RUN 
starten, können Sie dem Computer 
bei der Arbeit zusehen. 


Jetzt kommt Farbe 


ins Bild 


Vermutlich sind Sie jetzt ent- 
täuscht. Ein leerer schwarzer Bild- 
schirm ist nicht gerade eindrucks- 
voll. Deswegen wollen wir nun noch 
zwei Dinge lemen: Wie kommt Far- 
be ins Bild und wie bekomme ich 
Punkte auf den Bildschirm? 

Wenn Sie vor der Zeile 100 im Pro- 
gramm einen Stop-Befehl einfügen, 
tauchen nach der Äbarbeitung der 
ersten Zeilen plötzlich farbige Qua- 
drate auf dem Bildschirm auf. Die 
Antwort auf die Frage nach der Her- 
kunft dieser Quadrate birgt für uns 
zugleich die Möglichkeit der Farb- 
gebung. Geben Sie nun ein: CONT 


ınn IE .. 


»RETURN«. Auch das erscheint als 
Folge farbiger Quadrate. Jetzt wartet 
der Computer auf einen Tasten- 
druck, der auf dem Bildschirm fol- 
gendes erscheinen läßt: 

BREAKIN 40 

READY 

CONT 

READY 

OD 


Der Mehrfarbenmodus 
wird entschleiert 


Genau an derselben Stelle waren 
im HIRES-Modus die farbigen Qua- 
drate zu sehen. Die Farbe wird also 
anscheinend vom Inhalt der Bild- 
schirmspeicherzellen gesteuert. 
Das B von BREAK hat einen Bild- 
schirmcode von 2. Zweiistauch der 
Farbcode für Rot. Falls Sie einen 
Farbrnonitor Ihr eigen nennen, se- 
hen Sie im Hochauflösungsmodus 
an der Stelle des B ein rotes Qua- 
drat. Des Rätsels Lösung sieht so 
aus: Die Farbe des Hochauflösungs- 
bildes wird von 8x8-Bit-Feldern ge- 
steuert, die den Bildschirmspei- 
cherzellen entsprechen. Die Steue- 
rung ist also vom Inhalt des Bild- 
schirmspeichers abhängig, nicht 
vom Inhalt des Farbspeichers. 
Schreiben wir zum Beispiel in Zelle 
1024 eine 1, dann erhalten wir im 
Hochauflösungsmodus ein weißes 
Feld in der linken oberen Bild- 
schirmecke. Nun wollen wir in die- 
sen Bereich auch noch eine kleine 
Linie zeichnen: Löschen Sie bitte zu- 
nächst mal den STOP-Befehl und fü- 
gen Sie ein: 

40 POKE 1024,1:POKE 8193,255 

Nach dem Starten erhalten wir — 
wie erwartet — das weiße Feld links 
oben und darin einen schwarzen 
Strich. Um offenzusein — ganzsoer- 
wartet war's ja nicht. Denn woher 
hätten wir wissen können, daß der 
Strich schwarz ist? Sehen wir uns 
den Inhalt der Speicherzelle 1024 
genauer an. Im binären System ge- 
schrieben steht dort jetzt: 


0000 0001 
MSN LSN 
=0 == 

N = Nibble (4 Bit). 


Das legt die Vermutung nahe, daß 
die Hintergrundfarbe durch das 
LSN (hier 1 = weiß) und die Punkt- 
farbe durch das MSN hier 0 = 


schwarz) gesteuert wird. Probieren 
wir eseinfachmalaus. Wirtauschen 
das ganze mal um und schreiben in 
1024 den folgenden Wert: 


0001 


MSN 
=1 
(dezimal 16) 


=0 


Also ändern wir in der Zeile 40 
den ersten POKE-Befehl um in PO- 
KE 1024,16. Es klappt! Nach dem 
Starten (wie immer in diesem Pro- 
gramm nach einigem geduldigen 
Warten) erscheint ein weißer Strich 
auf schwarzem Grund. Nun können 
wir dieses triste Schwarz gezielt ent- 
fernen und von vornherein bestim- 
men, welche Farbe unsere Punkte 
bekommen sollen und welche der 
Hintergrund, indem wir in die Bild- 
schirmzellen den Dezimalwert un- 
serer Binärzahl eingeben. Damit Sie 
nicht jedesmal umrechnen müssen, 
hier eine nützliche Formel: 
Farbkennziffer (F) = Zeichenfarbe 
(ZF) x 16 + Hintergrundfarbe (HF) 

Zum Ausprobieren ändern wir un- 
ser Programm um: 

5 INPUT"ZF,HF=";ZF,HF 

In Zeile 40 schreiben wir jetzt neu: 
40 F=ZF*l6+HF:FOR I=1024 TO 
2023:POKE LF:NEXT I 
50 POKE 8193,255 

Wenn Sie beispielsweise nach 
dem Starten für die Zeichenfarbe 14 
und für die Hintergrundfarbe 6 wäh- 
len, können Sie mit etwas Geduld 
wieder dem Computer bei der Ar- 
beit zusehen und dann einen hell- 
blauen Strich auf blauem Grund fin- 
den. 


Dornröschen lernt zeich- 
nen: Punkte setzen im 
Hochauflösungs-Modus 


Wir sind es jetzt leid, immer einen 
fast leeren Bildschirm anzusehen. 
Obernunschwarz oder blau ist: Wir 
wollen nun auch mal etwas darauf 
sehen! Die Schwierigkeit liegt gar 
nicht darin, daß wir nicht wüßten, 
wie wir Punkte auf den Bildschirm 
kriegen. Wir müssen ja nur ein Byte 
im Bereich von 8192 bis 16191 mit ein 
paar gesetzten Bits versehen, zum 
Beispiel durch POKE 12000,1, und 
schon sehen wir einen Punkt. Das 
Problem liegt vielmehr darin, daß 
wir einen Weg finden, gezielt Punk- 
te an bestimmte Orte des Bild- 
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schirms zu setzen. Dazu müssen wir 
den Aufbau der Bit-Map kennen und 
und ihren Zusammenhang mit dem 
Bildschirm. Das Prinzip ist in Bild 5 
gezeigt. 

Die Speicherzellen der Bit-Map 
sind also angeordnet wie ein vollge- 
schriebener Bildschirm. Dort hatte 
ja jeder Buchstabe seine 8 Byte im 
Punktemuster. Aus der Anordnung 
ergibt sich außerdem, daß wir in 
der Y-Richtung 200 mögliche Positio- 
nen (0 bis 199) und in der X-Richtung 
320 (0 bis 319) finden. Wir haben so- 
mit Bildschirmkoordinaten (Bild 6) 
und können Punkte definieren, zum 
Beispiel im Bild 6 den Punkt P mit 
den Koordinaten X=110 und Y=100. 

‚Wir wissen nur noch nicht, in wel- 
chem Byte wir welches Bit setzen 
müssen, um diesen Punkt zu sehen. 
Betrachten wir dazu Bild 5 genauer. 
Die 25 Bildschirmzeilen und die 40 
Spalten sind noch erhalten. Jeder 
solche Bildschirmplatz besteht aus 
acht Byte mit je acht Bit. Stellen wir 
zunächst einmal fest, um welche Zei- 
le es sich handelt: 

Z=INT(Y/8) 
Beispiel: Z=INT(100/8)=12 
(Zeile 12) 

Dann ermitteln wir die Spalte, in 
der unser Punkt liegt: 
S=INT&X/8) 

Beispiel: S=INT(110/8)=13 
(Spalte 13) 

In unserem Beispiel muß der 
Punkt in Zeile 12 an Spaltenplatz 13 
stehen. Weil in jeder Zeile 320 Byte 
(82x40) und an jedem Platz 8 Byte vor- 
handen sind, fängt unser Bild- 
schirmfeld bei Byte Nr. 
Z*320+S*8=12*320+13*8=3944 an 
(siehe Bild 7). 

Nun müssen wir feststellen, um 
welches Byte in diesem Feld es sich 
handelt. Wir haben vorhin beim 
Feststellen der Zeile einfach gleich 
INT(Y/8) berechnet. Wenn wir nun 
nur Y/8 berechnen, kommen wir in 
unserem Beispiel auf 
Y/8=100/8=12.5. Ziehen wir davon 
INT(Y/8) ab: Y/8-INT(Y/8=12.5-12= 
0.5 220 multiplizieren das Ergebnis 
mit 8: 
80*CY/8-INT(Y/8))=8*0.5=4 

Genau das ist unser gesuchtes By- 
te: Nr. 4 von oben. Das sieht kompli- 
zierter aus, alsesist. Ausalledemer- 
gibt sich jetzt, in welchem Byte der 
Bit-Map ein Bit zu setzen ist: 

BYTE = 2*320 + S*8+8*(Y/8-INT(Y/ 
8)) 

In unserem Beispiel ist es dann al- 
so das Byte 3943 der Bit-Map. Nun 
müssen wir noch herauskriegen, 
welches Bit in diesem Byte zu setzen 
ist (siehe Bild 8). 


Auch hier haben wir vorhin bei 
der Berechnung der Spalte einfach 
gerechnet INT(X/8). Jetzt rechnen 


wir: 
X-8*INT(X/8) = 110-8*INT(110/8) 

Das ergibt 6. Wenn wir das von 7 
abziehen (Nummer des höchstwerti- 
gen Bit), erhalten wir: 
BIT=7-X-8*INT(X/8)) 


Die Zauberformeln 


In unserem Beispiel ist BIT = 1.Es 
muß also Bit | gesetzt werden. Damit 
haben wir jetztfolgende Formelnzur 
Verfügung: 
BYTE=INT(Y/8)*320+INTX/8)*8 
+ BY 8-INT(Y/8)) 
un 


BIT=7-4X-8*INT(X/8)) 
Den ersten Ausdruck für Byte 
kann man noch etwas vereinfachen: 
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nen lassen (in der nächsten Folge 
werden wir andere Möglichkeiten 
kennenlernen): Schützen Sie die Bit- 
Map vor dem Überschreiben durch 
Basic! Der verbliebene Speicher- 
platz für Basic-Text, Variable, Arrays, 
Strings ist so knapp, daß Sie ganz 
schnell die Bit-Map überschreiben. 
Deswegen sollten Sie (siehe Folge 2) 
eingeben: 

POKE 51.255: POKE 52,31:POKE 
55,255:POKE 56,31 


Es ist geschafft: 
Die erste Grafik 


Alles, was wir bis jetzt über die 
Hochauflösungsgrafik gelernt ha- 
ben, soll hier nochmal als kleines 
Demonstrationsprogramm zusam- 
mengefaßt werden. Also NEW ein- 
geben und dann: 


POKE 52,255:POKE 52,31:POKE 55,255:POKE 56,31 


ZF=0:HF=6:F=16*ZF+HF 


DEFFNA@&)=50*SIN@&/30)+100 


PRINT CHR$(147) 


POKE 53265,PEEK(83265)OR 32 


POKE 53272,PEEK(83272)OR 8 


B=8192:FOR I=0 TO 7999:POKE B+1,0:NEXT I 
FOR I=1024 TO 2023:POKE LF:NEXT I 


FOR X=0 TO 319Y=FNAR) 
BY=(X AND 504)+40%(Y AND 248)+(Y AND 7):;BI=7{X AND) 
POKE B+BY,PEEK(B+BY) OR (2!BD:NEXT X 

GET A$:IF A$=""THEN 120 

POKE 53272,PEEK(53272) AND (255-8) 

POKE 53265,PEEK(63265) AND (255-32) 

PRINT CHR$(147) 


BYTE=8*(39*INT(Y/8)+ INT(X/8)+ 
Y/8) 


Die genaue Speicherzelle ergibt 
sich durch Addieren der Bit-Map- 
Startadresse (8192)zu BYTE. Umalso 
einen Punkt zu setzen, gibt man das 
Kommando: 

POKE 
8192+BYTE,PEEK(8192+BYTE) OR 
(21BIT) 

Wir ergänzen jetzt unser Pro- 
gramm. Die Zeile 50 wird neu: 
S0BY= 8*(39*INT(Y/8)+INT(X/8) + 
Y/8):BI= 7-(X-8*INTX78)) 

Dann folgt: 
60 POKE B+BY,PEEK(B+BY) OR 
(21BI) 

Außerdem müssen wir natürlich 
Punktkoordinaten eingeben: 

6 INPUT"XY=";XY 

Dabei ist darauf zu achten, daß X 
zwischen 0 und 319, Y zwischen 0 
und 199 liegt. Starten Sie mit RUN, 
geben Sie die Koordinaten ein und 
nach einiger Weile wird Ihr Punkt 
auf dem Bildschirm zu sehen sein. 

Auf eines sollten Sie noch achten, 
wenn Sie die Bit-Map bei 8192 begin- 





Dieses Programm setzt 320 Punkte 
nach der Form einer Sinus-Funktion. 
Zur Erläuterung sei noch bemerkt, 
daßinZeile 100 eine etwas elegante- 
re Lösung der Berechnung von BY- 
TEundBIT angeführt ist. Sie können 
aber genauso gut die bisher ver- 
wendete benutzen. In Zeile 150 wird 
der Bildschirm nochmal gelöscht, 
denn bei der Eingabe der Farben 
haben wir ja die Bildschirmzellen 
mit einem Zeichencode belegt, der 
im Normalmodus immer unter dem 
Cursor sichtbar wäre. 

Dornröschen ist also erwacht und 
hat die ersten zaghaften Schritte ge- 
tan. Alles geht noch etwas langsam 
vor sich. Besonders das Löschen 
der Bit-Map (Programmzeile 70) er- 
fordert geduldiges Abwarten — je- 
denfalls solange wir in Basic arbei- 
ten. Für heute haben wir genug ge- 
tan. Die nächste Folge wird eben- 
falls der hochauflösenden Grafik 
gewidmet sein. Wir hauchen ihr 
weiterhin Leben ein. 


(Heimo Ponnath) 


DIIIETNEZ 


VG 20 +8 KByte 


$o machen’s andere 


Ob für das 

Familienalbum, zur Bebilde- 
rung von Zeitschriften 

oder für andere Zwecke — 
Fotografieren macht 





Spaß. Das Auge kann sich aber nur dann an den fest- 
gehaltenen Motiven erfreuen, wenn die Bilder 

wirklich gelungen sind. Um das zu erreichen, muß vor 
dem Drücken des Auslösers richtige »Kopfarbeit« 


nen Größen, wie Belichtungs- 

zeit, Tiefenschärfe usw. aufein- 
ander abgestimmt sind. Die benötig- 
ten Werte lassen sich aus Tabellen 
ablesen oder müssen jedes Mal 
nach festgelegten Formeln berech- 
net werden. 

Wolf Robrahn, von Beruf Fotograf, 
hat sich eine wesentlich bequemere 
Möglichkeit geschaffen: Umständli- 
ches Nachschlagen oder Ausrech- 
nen der Werte erspart ihm sein »Fo- 
tolehrling«, der VC 20. 

Vor etwas mehr als zwei Jahren 
fing alles recht »harmlos« an, als er 
sich entschloß: »Ich brauche einen 
Mikrocomputer, um Grundlagen 
derüberall gefragten EDV-Kenntnis- 
se zu erlernen.« Er kaufte einen ZX 
8l. Was er zu dem Zeitpunkt noch 
nicht ahnte, war, daß Mikrocompu- 
ter nurselten»keimfrei«sind. Mittler- 
weile hat sich nämlich herausge- 
stellt, daß er sich mit dem Computer 
den Bazillus ins Haus geholt hatte, 
der auch bei ihm das weitverbreite- 
te und bekannte »Computerfieber« 
auslöste Es machte sich recht 
schnell bemerkbar, seine Frau und 
seine zwei Kinder trafen ihn immer 
häufiger in trauter Zweisamkeit mit 
dem Computer an. Doch die recht 
enthusiastisch angebahnte Bezie- 
hung zum ZX 81 entpuppte sich sehr 
schnell als Strohfeuer: Nicht etwa, 
daß Wolf Robrahn von seinem »Fie- 
ber« geheilt war — im Gegenteil — 
die Symptome hatten sich verstärkt. 
Sein Kenntnisstand und seine Fähig- 
keiten waren inzwischen soweit ge- 
wachsen, daß ihm sein Abend- und 
Wochenend-Freund nicht mehr ge- 
nügte. Erwollte mehr. Zwei Älternati- 
venstandenzur Wahl: Die Standard- 
ausführung auszubauen oder ein 
größeres Modell »mit richtiger Ta- 


G anz wichtig ist, daß die einzel- 


ınn —.k)_.0. 


geleistet werden. 


Bild 2. Brennweite 50 mm, Blende 16 = Belichtungszeit 2 s 


statur« zu kaufen. Der computerbe- 
geisterte Fotograf entschied sich für 
letzteres und besitzt seit zwei Jahren 
einen VC 20. Noch lieber wäre ihm 
der größere Bruder — der C 84 — 
gewesen, doch in Anbetracht der 
damaligen Preise gab es keine Ver- 
einbarung zwischen diesem Modell 
und dem Familienbudget. 


Am Anfang war das Spiel... 


Anfangs probierte sich Wolf Rob- 
rahn im Programmieren von Com- 
puterspielen: Abenteuerspiele, Re- 


aktionsspiele, Strategiespiele, Spie- 
le mit oder ohne Grafik — zu jedem 
Thema entwickelte er Ideen und 
setzte sie mit dem VC 20 um. Doch 
die Spiellust erschöpftesich bald. Es 
war ander Zeit, den Computer nutz- 
bringend einzusetzen. Und was lag 
näher als ihn für Aufgaben heranzu- 
ziehen, die den Hobby- und Berufs- 
fotografen entlasten. 

Zwei »nutzbringende« Projekte 
sind seitdem schon realisiert: Die 
Einzelbild-Steuerung einer Su- 
per-8-Kamera mit dem VC 20 und 
das in diesem Artikel beschriebene 


Ausaabe 6/luni 1984 









VG 20+8 KByte 


Bild 1. Brennweite 50 mm, Blende 4 = Belichtungszeit 1/30 s 


Programm zum fotografischen Fach- 
rechnen. Momentan baut Wolf Rob- 
rahn nach den Schaltplänen von 
Commodore eine Modulbox für sei- 
nen »Fotolehrling«. Die benötigten 
Platinen stellt er »selbstverständ- 
lich« auf fotografischem Wege her. 
Dabei fertigt er zunächst eine Zeich- 
nungan, die mit einem Strichfilm ab- 
fotografiert wird. 

Auf einem Strichfilm gibt es nur 
schwarze und weiße Darstellungen, 
keine Grauwerte. Für die weitere 
Verarbeitung ist es unabdingbar, 
daß die feinen Linien »wirklich 































schwarz« sind. Die Strichfilm-Auf- 
nahme (Negativ) wird in der ge- 
wünschten Platinengröße auf eine 
Folie (Positiv) kopiert. Diese Folie ist 
die endgültige Vorlage: Sie wird auf 
die Platine gelegt, mit einer Glas- 
platte fest angedrückt und mit UV- 
Licht belichtet. Nach der Entwick- 
lung lassen sich die auf die Platine 
übertragenen »Muster« ätzen. Auch 
das erledigt Wolf Robrahn selbst. 
Und noch ein Projekt hat der Hobby- 
Elektroniker geplant. Ermöchte den 
VC 20 für eine totale Kamerasteue- 
rung einsetzen: Der Computer soll 


So machen’s andere 


ihm bei Trickfilmaufnahmen assi- 
stieren, indem er die Filmkamera 
vor- und rückwärts, nach oben und 
unten sowie nach rechts und links 
bewegen kann. Der Meister möchte 
sich selbst von diesen Tätigkeiten 
entlasten, umsich ausschließlich auf 
die Motive konzentrieren zu können. 


Und jetzt wird gerechnet 


Die Bilder zeigen Aufnahmen, de- 
ren Werte mit dem Programm »Foto- 
grafisches Fachrechnem ermittelt 
wurden. Bei Bild 1 war es Ziel, das 
Tonbandgerät im Hintergrund un- 
scharf erscheinen zu lassen, wäh- 
rend das Mikrofon im Vordergrund 
scharf abgebildet ist. Es handelt 
sich dabei in erster Linie um ein Tie- 
fenschärfeproblem. Mit dem Pro- 
gramm wurde der Tiefenschärfebe- 
reich ermittelt: Wolf Robrahn gibt 
nacheinander verschiedene Werte 
ein, bis einer der errechneten 
Schärfenbereiche zusagte (verglei- 
che auch das Anwendungsbeispiel 
weiter unten). 

Fast bei jeder Mittelformat- und 
Kleinbildkamera gibt es eine am 
Blendenring eingravierte Tiefen- 
schärfetabelle Das Einstellen ist 
hier also kein Problem — man 
braucht nur richtig abzulesen (Bild 
2). Schwieriger wird es, wenn man 
mit einer Vorsatzlinse arbeitet. Dann 
ist das Ermitteln der Tiefenschärfe 
am Blendenring nicht mehr mög- 
lich. Es muß gerechnet werden: 
Wieder ein Programm-Einsatz (Bild 
3). Diese Beispiele sind nicht nur für 
Fotografien in Kleinbild- und Mittel- 
formattechnik interessant, sondern 
ganz besonders auch bei der Groß- 
bildfotografie. Hier per Tastendruck 
die Bildgröße, Bildweite oder die 
korrekte Belichtungszeit zu ermit- 
teln, ist eine wesentliche Erleichte- 
rung, die Wolf Robrahn vor allem 
bei TableTop-Aufnahmen ständig 
nutzt. 

Einen Haken hat das Ganze: Der 
VC 20 ist leider kein »Geländecom- 
puter«, derin Feld, Wald und aufder 
Wiese genauso komfortabel einsetz- 
bar wäre, wie auf dem heimischen 
Schreibtisch nahe der Steckdose. 
Bei Außenaufnahmen muß auch 
Wolf Rohbrahn die benötigten Wer- 
te ohne seine »Fotolehrling« ermit- 
teln. 

Hardwarevoraussetzungen für 
»Fotografisches Fachrechnen« istein 
VC 20 mit einer 8 KByte Speicher- 
erweiterung und einem Kassetten- 
laufwerk. Die grafische Darstellung 
(Bild 4) veranschaulicht den allge- 
meinen Ablauf des Programms. 
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Der VG 20 


= 
als »Fotolehrling« 
18 Poke35879, 174: printchrs(144),chr#(14):Poke657,128 
br Fe zn en 28 datal.4,2,2.8,4,5.6,8,11,16.22,32,45,64,98,128 
Ss2> rem Hit menu Hk 


> ROIDe a foto9rafisches Fachrechnen 
; 185 cIr 

Nachdem es geladen und mit 118 print". Berechnung der" 

RUN gestartet wurde, erscheint auf 120 print DBBDBi \dörsesse" 

. x “ 5 print"Be. Berechnung der" 
dem Bildschirm das Menü (verglei- 148 Pprint"IBBBaGesenstandssroes." 
che Abbildung rechts). Uber die 18 erint’ZBB. Verwendung von" 

: “u 6 Frint” orsatzlinsen” 
Zahlentastatur wird dergewünschte | ;7a erint"zak. Berech.der Bildu." 
Menüpunkt angewählt und die be- 186 Print MaßBrenns. & Entfern.” 
= x : Print" „ Berechnunsa der" 
kannten Größen werden im Dialog | 58 print "IkbBBelichtunsszeit" 


eingegeben. Hierbei gilt es einige 218 Print"TB6. Berechnung der" 





rem toto9grafisches fachrechnen 
ren 

rem (c) 1984 bu 

rem wolf-d.robrahn 

ren beethovenstr. 18 

rem 22088 elmshorn 

ren 
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& 228 erint"IBBblTiefenschaerfe" 
Punkte zu beachten: } 23@ Print"IBlalCode-Zahl eingeben" 
1. Bei Längenmaßen muß immer | 233 rem wit code-eingabe wirk* 


5 7 > R 2 $ 
eine Größeneinheit angegeben |35& iras="1"thenieae 
werden. Hierzu ein Beispiel: Wird 2 sa enaaos 
die Brennweite erfragtundmangibt | 258 ifas="4"thensaas 


j i - | 298 ifa$="5"thenSe8@ 
nur »l2« ein, erscheint die Fehler- | 225 1735-"guthenzono 


meldung »EINHEIT VERGESSEN«. 308 90t0248 

Richtigistes,»l2CM«oder»120MM« | 1988 erint"za s4% BILDGROESSE nen " 
x 5 5 5 a 1985 90sub11868 

einzugeben. Wichtig ist, zwischen | 1018 inrut"InBildueites";als 

der Zahl und der Meßeinheit eine | !12 sosubl2929:ifa=ithenißlß 

Leerstelle zu setzen. Wird eine Ein- 191? ara. \ 

A ; 1828 input” rennweitei#";al$ 
gabe gefordert, deren Größe nicht | ja>2 sosub12aa8: ira=1then1828 
bekannt ist, genügt auch hier nicht | 1825 s0:4b18888 
einfach eine »D« einzugeben Fr ee Be snrlsnenstandsontätsatt 
selbst in diesem Fall ist die Angabe | 1831 sosubi2eg8: ifa=ithen1838 
einer Maßeinheit erforderlich. Um | 1833 g2s,»122e8 
eine einheitliche Berechnungs- | 1836 inrut"sEntfernuns#';als 
grundlage zu haben, werden auto- | !837 3esubiag29:if3=ihentess 
mätisch alle Längenmaße in Mill- 1050 IraCBande©öBande©Bthenb=(aks)/e:30t01208 

it aDdandes>uansss> enb=(a$3)/e:90To 
meter umgerechnet. 1058 iff<>BandsC> Bande >Bthenb=(f49)/le-f) 20101288 
2. Bei der Blende muß ein Wert | 1863 ifa=8andf>8then1256 


: - . 12364 ifa=dandf=9then1836 
der intemationalen Blendenreihe | ja&s ira<fthens9938 


eingegeben werden. Hiernach sind 1ges ifanfthensesn Na 
folgende Eingabe-Werte zulässig: es ee <>ethenb=(la-f)E3)/f:90tol288 
1.4; 2; 2.8; 4; 5.6; 8; 11; 16; 22; 32; 45; 64; 102 Sir er 
OTTO 
90 und 128. an at 1298 b=int(10@4b)/108 _ 
Auch hierzu ein Beispiel: Wird die | 1339 1EoS1Hänennin N nsercnt 
ge een un FEnie or > II INS RE EEE LES 0 RE IIE BETEDBNEL ERTL TANG 
»12.5« ein erscheint ie Fehlermel- 12 ifa= ena=int El le#t )/(e- 2») 189: print" Bildweite"a"mm" 
' 1259 ife=dthenesint( 10B#(la4f)’la-t)))7108: " er" 
dung »KEINE GUELTIGE BLENDE«. 1989 Print"MBILDGROESSE"D.nE VENEN AST 
; = 1272 Print" IBBRRRETURNA wenn weiter" 
auch halbe Biendeneinselbarsind | 123 Siies oo ee 
soto 


_ „16% i - | 2888 Print" ek _GEGENSTANDSGROESSE *" 
»16*1/2« einzugeben. Das Stern- | 5535 sosunı ae g 


chen zwischen 16 und 1/2 ist unbe- | 2818 input*SElBildaroesse#';ais 
dingt zu setzen. ST 
Erklärungen für die in dem Pro- | 204 bzw 
gramm vorkommenden Fachbegrif- | 2262 sosunı2888. irseitnenzese 
fe, wie Gegenstandsgröße, Bildwei- | 2876 s0su018986 
n> g . . . 2858 a=szu 
te und ähnliches können in dem | 5958 inrut"MEntfernunss";als 


Buch »Fotografie« von Kurt Dieter 2170 BOBUBTSNSST SEN ITRNAERR 
Solf, erschienen im Fischer Verlag, | 3135 zz »eoe 
nachagesch werden. 2148 inrut"aßrennweiteX";als . 
9 lagen we 2158 9031612088: ifa=ithen2148 Basic-Listing für fotografisches 
2188 Sosub12208 Fachrechnen 
Ein kleines Beispiel Sig iraoe »aandb<>öt 2308 
2 ifal>dandelddandb<ld>ötheng=(etb)/a:soto 
pie 2185 ifa-Qandf>öthenz20 
2198 ifa=dandf=Bthen2248 
2206 itacfthensaaga 
Er 2218 ifa=fthensasaa 
Ein Aufgabenbeispiel soll den | 2228 ire<>Bandb<>Bandf>&thens=(<e-f)#b)/F:90:02398 


Umgang mit dem Programm ver- 2238 iff<C>Bandb<>danda<>Bthens=(f#b)/La-f) 9002368 
deutlichen: 2248 s0osub61269 
eutiichen: 2258 cir:soto2818 
Eine Briefmarke von 2 cm Breite | 2288 s=int<1ea4s)/100 
5 = s 2318 ifg<18dthenns="mm" 
und3cmHöhe soll formatfüllend mit | 2328 ifs>=188thens=3/19:n$="cn" 
einer Kleinbildkamera aufgenom- 2339 iff=dthenf=int(li00#l (eta)/leta)))/188:Print"HBrennweite" "mm" 
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VG 20+8 KByte 


$o machen’s andere 





ifasdthenasint( 1098 left) /le-f)))/10B:Print"TBildveite”a"mm" 
ife=dthene=int( 100% (akf)/Ca-f)))7/1089:Print"TEntfernung"e”cm” 
Print"IGEGENSTANDSGR. "3; m$ 

Print"TBBRRETURNA wenn weiter" 

Yetas: ifascdchrs(13)then2380 

sotol88 

Print" 4## VORSATZLINSEN K#" 

9osub11898 

input"MBrennweite altä";ais 

30sub12088' ifa4=1then3928 

3osub18388 

fi=zw/1ß 

input"Mäßrennweite neug";ais 

90s5ub128088: if3=1then3968 

90zub10988 

f2=zw/18 

input"MaDioptriend";ci 

iff1CdBandf2<>Banddi<dethensosub61993 30103918 
iff1<Cd>Bandf2<Cdäthendi=l1OB/F2)-108/F19):di=sint(10%4di)/10 
iff1<dBandf2<däthenprint"TEIDIOPTRIEN: "di 3003158 
iff2=8anddi=dthendi=int(10#C198/f1))/18:Print"TEDIOPTRIEN: "di :90t03158 
iff1=Bandf2=öthenf=int(18%C189/di)) Print "TEIBRENNHEITE: "F" mm" 9003158 
iff1<Cd>Banddi<>äthenf2=C1AOKF 1) /C1BQ+LJiHF 1)) :f2=intl1O4f2) 
iff1<>Banddi<>dthenprint"SEBRENNWEITE NEU"FZ2" mm" 

Print" ZBBRRETURNG wenn weiter” 
Betas: ifasCdchr$(13)then3169 
goto16d 

Print"3f@ Berechnung von R,f,E " 
sosubi1Hd8 
input"MaBildaroessei";als 
sosub12088: ifa=1thendß28 
Fosub109389 

b=zu 

input"MiBildueited",ait 
305ub12999: ifg=1thendasa 
9osub10008 

a=zu 

infut"MiBrennweited",als 
Sosubi1298B: ifg=ithens19a 
3osub19069 

zu 

input" Mnfegenstandser. W",als 
sosub12688: if4=ithens149 
sosub10999 

Sezu 

input" MiEntfernuna";als 
903ub12088: ifa4=1Ithens1S6 
sosıub13899 

e=zu 

ifa<fandal>Bandf<d>üthens9092 
ifa=sfanda<>Bandf<döthensaSes 
iff=dande<dBanda<d>2thend5gg 
itf=ßanda<>Bandb<>dands@ddthen4355B 
iff=dande<>Bandb<>Bands@däthendsod 
ifa=sbandf<D>dandb<>Bands<>äthend47a8 
ifa=sBandeC>Bardf<>Athens720 
ifa=sBandb<>BandsC?bande@däthend755 
ife=sdandf<dBandb@ddandsCd&thend35g 
ife=Bandal>dandf<>öthend43sd 
ife=Bands<dYandb<>Banda<döthend4379 
ifx=Bthensosubsißäd:cir:9oto4B28 
Frint"IBBRRETURNA wenn weiter" 
getas: ifasCdchrs(C13)thend4so 
soto106 

f=(eka)/(e+a):90t046556 
f=a/((b/3)+1):90t04659 
fse/((5/b)+1) 
feintcf):print"ABRENNWEITE"F "mm" 'x=1:f=9:90t04338 
a=sfsl(b/3)+1):30t04509 
a=(letf)/le-f) ' 3oto4sdd 
a=(b#e)/’I 
a=sintta)/18:print"SBILDWEITE"a"cm" 'x=1:2=8: 9004368 
e=f%(C(9/b)+1):90t04308 
e=(akf)/(a-f):90t04908 

e=(9#a)/b 

esintle)/18:Print"AENTFERNUNG"e"cm" ix=l:e=9:90t04456 
Print"Sa ## BELICHTUNGSZEIT ##" 
sosubi11806 
dimb1(15> 

inrut"MlBlendes";al$'a2s=als 
restore:forz=itol4 
readP 'bl(z)=er 

ifvallal$)=sPpthenzz=i 

next 

ifzz=döthenprint"keine Yuslitige Blende!" :S30t05818 

aeg 2 

input" rennweiteä";als 2 2 

90sub12088' if9=1then5028 Basic-Listing für fotografisches 
02008 Fachrechnen (Fortsetzung) 
inpus"TiBildweited",ais 
30zub12099: if4=1then596d 
sosub10908 

a=ıu 

ifa<fthense90d 

inrut"Tabel, Zeitd",als:ass=als 

ifleft$lals,2)="1/"thenal$eriähtslal$, lenlal$)-2):t=1/vallalt) 9005208 
t=vallals) 

faslaka)/ctHr) 

ketufa:fa=sarlta)iift<itnentssstrslintcl/t)) itserishtscts, lenltHI-1) 
itg="1/"+t$ 

ift>=ithents=strsCint(104t)/18) 

nen/fa 





men werden. Welche Vorsatzlinse 
ist notwendig, wenn eine Brennwei- 
te von 5 cm zur Verfügung steht. Der 
maximal einstellbare Nahbereich 
beträgt 40 cm. 

Zu berechnen sind: Bildweite, 
neue Brennweite, Dioptrien-Wert 
(Brechkraft der Linse). Zunächst gilt 
es, die längste Bildweite festzustel- 
len; dazu wird aus dem Hauptmenü 


das Untermenü 4 angewählt. Ge- 
fragt wird nach: 


BILD- 

GROESSE Eingabe: 0 MM 
(zur Berechnung 
nicht wichtig) 

BILDWEITE Eingabe: 0 MM 
(Größe nicht be- 
kannt, soll berech- 
net werden) 

BRENN- 

WEITE Eingabe: 50 MM 

GEGEN- 

STANDS- 

GROESSE Eingabe: 0MM 
(zur Berechnung 
nicht wichtig) 


ENTFER- 
NUNG Eingabe: 40 CM 
Ergebnis: BILDWEITE = 5.7 


CM 
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forz=1t013 
5258 ifn=bl(z)thenbl$=strscbltz)):30605509 
ifndbl(z)andn<bl(z+i)thens0osub62598:90t05508 


next 


u Print TR lichtuns@ttttttl" print"Blende: "a2s 
ä S » I « pPrint"ißel. Zeit:"t3" sec" 
Print"Eloder..." 


Print"SBlende:"bi$ 

Frint"äBel, Zeit: "a3$" sec" 
FPrint"’ERBIBRETURNG wenn weiter” 

getas: ifa$<dchr$(13)thenS5Ssg 

200188 

Print" #4 TIEFENSCHAERFE ##+ " 

Print"Bitte Yeben Sie Ihr Fiimformat ein!" 


Die größte Bildweite beträgt also print zei „Yerwendun® von SchnalfiImen:" 
57 Millimeter. Zur Berechnung der ikeBren 8 = age 
Brennweite wird abermals das Un- print"iNormal 8 = nö 
% 5% : Print" TBabbablbeispiel:" 
termenü 4 angewählt. Gefragt wird Print"eFormat:3? 24x36 mm" 
’ j . Print" nun" 
wieder wie vorher: input"@Format'a";als:a2s=alf 
ifal$=""then6620 
ifai$="s8"orals="n8"thensz=4e-83:90t06368 
BILD- ifal$="16"thensz=de-83:90t06508 
GROESSE Eingabe: 36 MM BoauB1 ee: AED TESaneSes 
! als=lefts(al$, lenlal$)-2) 
(Kleinbildformat) ag="" 
5 forz=itolen(al$) 
BILDWEITE Eingabe: 57 MM afsastmid$Calt,z, 1) 
(wie vorher er- ifmidslal$,z+l,1)="x"thensiSe 
next 
rechnet) keerichtscals. ientals3-tari35 
BRENN- als=sas+trisht 2 
. sosub1a608 
Ö 1 al$s=b$+riähtsla2s, 
(Größe nicht be- Sun toase 
kannt, soll errech- DEM N  yirnsanı = 
5 cs=sar((Caltal)+ib »):sz=c/l 
net werden) sz=int(100843z)/1008 
GEGEN- aztmst sur) : szseriöhts(sz#, len(sz$)-1) 
=1tolen(sz$) 
STANDS- ifnid$(s2$,2, 1 )schr$(69)then6340 
GROESSE Eingabe: 3 CM DE 
ENTFER- sz$=" .00"+lefts(sz$,1) 
NUNG EINGABE: 0 MM BEIREHIOIS A "325" mm" 
(soll berechnet a2$="":2=9:a$="":b$=""iglsßiblesh:iced:szi="" 
werden) en ei Toleranz einverstandenbitte nur BRETURN" 
a nput” oleranzä";sz 
Ergebnis: BEN EEE = 5525 dinbl (15) restore ‚forzeitoisireaah ‚bICZI=F next 
rem 2. menu 
Print"=a moesalichen Berechnunssarten ® 
ENTFERNUNG = Frint"EBli. Tiefensch. bei" 


Print"abbmEinstell. Unendl.” 
4.7CM Print"IEER. Tiefensch. bis" 
Print"IBBBlalnendlich" 
Print"iEBis. Tiefensch. von" 
Print"IsBafßendl.Narpunktä bis" 
Print"IBBhlgendl.Fernpunkt” 
Print" TEEBBIWLode-Zahl eingeben” 


Mit der neuen Brennweite läßt rem ###* code-einsabe #### 
s Be: a getas 
sich nun — über das Untermenü 3 eva cat)=ithen7006 
die gesuchte Vorsatzlinse berech- ifvallas)=2then?508 
nen 5 ifvalla$)=3thend093 
a z 93 3006589 
Gefragt wird nach: Print"WsEinstellunsg UNENDLICH" 
input"MäBrennweite";ais 
g03ub12888 ifa=1then7218 
BRENNWEI- ee 
- f=zw 
TEALT Eingabe: 50 MM input "AIRBlende#';a1s'22=8 
1 ifals="8"thenn=9:30t07: 
BRENNWEI- 2 restore: forz=eitold4:readp 
TE NEU Eingabe: 25 MM a ee 
: i ex 
DIOPTRIEN Eingabe: 0 (soll ifzz=dthenrrint"keine Yueltige Blende!" 9007939 
berechnet wer- sosubs2808 
Ä f nP=Li(fEt )/CsZzenKid)) 
en) ifnp>=1988thennp=intinp 3/1988: m3="m" 90607398 


IS! = ifnp>=108thennPr=int(np) 'ims="cm" 30407398 
Ergebnis: DIOPTRIEN 20 ifnp<108themnf=int( 1BAnP )/10'mS="cm" 


ifx=öthenprint"iöchaerfe von’np;mF'print"fbis Unendlich" 
301063998 

Print"3@Nahrunkt bis Unendlich" 

inprut"aBrennweiteä";ais 

sosub12988: if4=1then7505 


Hiernach muß eine positive Vor- Sozub10008 
satzlinse von 20 Dioptrien Brechkraft | 7328 f=zu , Bi 2 
benutzt werden, um die gestellte A 
Aufgabe zu erfüllen. Wer die Rech- 2 restore:forz=eitolsireade 
nung überprüfen möchte, kann die EENEISSERINEEON 
Gegenprobe machen. Bei BRENN- ifzz=dthenprint"keine Ygueltige Blende!":90607525 
WEITE NEU muß hierbei »0 MM« eat ishpunktttialt 
und bei DIOPTRIEN »20« eingege- ee ifa=1then?558 Basic-Listing für fotografisches 
ben werden. 7565 ne=zu Fachrechnen (Fortsetzung) 





(Wolf Robrahn/kg) 17378 ifn=8thenr7&® 


VG 20+8 KByte 
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np=(far)/(24:zinkld) 
ifnp>=198themnp=int (nF )/ 199 m$="m" 930607688 
ifnp<18ßthennr=int(1d4np )/18:m$="cn" 
Print"BSchaerfe von"np;ims 
print"ibis Unendlich." 
Print"IBEINSTELLUNG" Z#nP ins 
30t063039 

8 necfar)/(C28szinp) 
forz=1t013 
ifn=bl(z)thenbl$=str$s(Col(z)) 90607739 
ifn2b1CzIandn<bl(z+1)then90sub62508: 90107730 
next 

Frint"Smoetige Blende”bis 

sotossaah 

8988 Print"SEHAHFUNKT bis FERNPUNKT" 

8013 input"Ihahrunktä”;ais 

5814 Sosub12908: ifa4=ithenddis 

3215 sosubi10248 

8015 np=zu 

5828 input" MaFernrunktä";ais 

5925 90zub12989: if9=1then8328 

8858 Josub18808 

8935 fp=zu 

8848 input" Mrennueited";ais 

8645 905uUb12898: if4=1then3ds43 

8858 3osub196508 

SO68 fezu 

3838 ifnr<ddandfp <DBthen50as 

31893 input" MiBlende";al$:zz=d 

S116 restore'forzeitold:readp 

8128 ifvallals)=Pthenzzei 

8136 next 

8148 ifzz=dthenfrint"keine Sueltige Blende!” '30t03188 
8159 S0osub62088 

Ss168 input" MlEinstelluns@";als 

8165 90sub12998: if4=1then58653 

8178 30:ub19888 

3188 e=zw'ese/lß 

83198 nu=ltHr)/lzzinkilB) 

8195 nP=(inuse)/cnutre) 

5195 ifnu<sethenmis="Iilnemdlich" 80408239 

8239 Fp=(lnuke)/Cnu-e) 

8218 iffp<1däthenfp=inti1ä4fr >/i8: nls="cm" 

8228 iffp)=180thenfp= int c19).188 mis=" m" 

3230 ifnpr<1988thennp=int/l9Fnp,>/1@:m ="cn" 

8248 ifnP>=188tnennr=intinp)/198:mE=" m" 

5259 Print"INRHPUNKT: "nPims 

8265 Pprint"SFERNPUNKT:"£P mis 

8278 3010963802 

A808 e=(lZänfhktp)2/inp+fP) 

3a10 nelltardkitPnp I) /CAHszenPHrtPp) 

2020 forz=1tol3 

9925 ifn=bliz)thenblFi=strs(bi(z)):3otodäd4s 

93838 ifn>bl(z)andncbllz+i)thengosub62509:90t09845 
Sa4d next 

3845 ıfe)=1900thenesintle/1B)/108:m$=2"m" :g0toFa6H 
3558 ife>=189thenesint(le)/1ä:mse"cm" :3otodbss 

9855 ife<l188thene=int‘104e)/19 'm$="um" 

9958 Frint"REINSTELLUNG"eIM$ 

9978 Print"ähoetise BLENDE"DIS 

9850 90t063099 

3953 rem #4%$ wandeln in milimeter 4a 

16259 ifrishtskals,Z2)=" m"thenzwevwallals)#1008 

1a8ie ifrishtslal$,2)="cm"thenzuevallals)eid 

108828 ifrishtslals, 2I="mm"thenzusvallal$) 

189358 return 

11868 Print"Geben Sie folsende 
118218 return 

11999 rem #444 ueberfruefen ob einheit ses 

12889 9=8: ifrishtslals, L)<chr$(76)theng=1:'Pprint"Einheit vergessen" 
12818 return 

508888 Frint"iEDie Rechnung ist unzu-laessis, da die 

SQa1g Frint"i. Brennweite liegen wuerde. IK’ 

50928 Frint"EBBRRETURNS wenn weiter" 

50939 Jetas! ifaschchrs(13)thens8a3a 

50248 Sotoied 

50508 Frint"TDie Berechnung ersibt SUNENDLICHSA. kenn moes- 
die "; 

89518 Frint"Entfernuns ein- geben!” 

58528 Print"TBBRRETURNS venn weiter" 

59538 getas:ifas<dchrs(l13)thengg53o 

50542 20t0189 

siaas Print" ungenue 






































































Werte ein:" 
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sende Angaben 









81818 return 
61993 rem ##%# berechnuns Jd. blende in dezimal Ks 
52009 n=vallal$):ifrishtslals,3)="1/2"chennenkl.2 
820818 return 

52453 rem #444 umwandlung d. dezimalen blende #444 
82589 xl=en-bilzy:x2=bliz+l)-n: ifxl>=x2thens2sdg 
52518 ifx2d>xithens2768 

52298 bl=bil(z)#l.2:x1=n-bi 

62618 IERLSISEEDRTSSBEE RL bl(z+1)):901062888 
















fx2) xithenbls=str&cblczyr"kls 2" 900652839 
52798 bi=sbillzy#1.2 x2= =bl-n 
s2r1ö ifxl?xZ2thenblisstrschi(z))+"H1/2":90t062808 






52729 ifx2)exithenbls= strf(Cbl(z)) 

62888 return 

653883 Print" Bhiienu oder heiter" 
53018 Setas: ifasld"m"andasch"w"thens3gie 
63928 ifas="n"theniad 

63038 Qir:90t065629 

reads. 








Basic-Listing für fotografisches 
Fachrechnen (Schluß) 














A = BILDWEITE 

Al = SEITENLAENGE | 

B BILDGROESSE 

Bl = SEITENLAENGE + 

BUX) = BLENDENREIHE 

c = BILDDIAGONALE 

DI = DIOPTRIEN 

E = ENTFERNUNG 

F = BRENNWEITE 

Fl = BRENNWEITE ALT 

= FAKTOR 

= FERNPUNKT 

= GEGENSTANDS- 
GROESSE 

= ERRECHNETE BLENDE 

= NAHPUNKT 

= NAHPUNKT UNEND- 
LICH 

= BLENDENVARIABLE 

= SCHAERFENTOLERANZ 

= ZEITVARIABLE 

= KONTROLLVARIABLE 

= HILFSVARIABLE FUER 
BLENDENBERECHNUNG 


= KONTROLLVARIABLE 


= HILFSVARIABLE 

= EINGABEVARIABLE ZUR 
WEITEREN AUFBE- 
REITUNG 

= HILFSVARIABLE FUER 
BLENDE 

= HILFSVARIABLE FUER 


N 
NP 
NZ 
P 
SZ 
? 

X 
xl 
X2 
Z 
zw 
ZZ 
As 
Als 


= BLENDENWERT ALS 
STRING 

= VARIABLE FUERMM # 
CMODERM 

= DITO 

= SCHAERFENTOLERANZ 





Wettbewerb 








Anwendung des Mo- 
nats, was ist das? Nun, Sie 
haben einen Commodore 
64 oder einen VC 20 und 
versuchen diesen irgend- 
wie sinnvoll einzusetzen. 
Unter einer sinnvollen 
Anwendung versteht die 
64’er Redaktion alles, was 
beispielsweise Program- 
me im häuslichen Bereich 
bewirken. Es kann sich 
dabei um die Berech- 
nung der Benzinkosten 
fürIhren Wagen handeln, 
umeineigenes Textverar- 
beitungsprogramm ge- 
hen, sich um die Verwal- 
tung Ihrer Tiefkühltruhe 
drehen oder ein ausge- 
klügeltes Telefon- und 
Adreßregister sein. 

Setzen Sie Ihren VC 
20/C 64 mehr oder weni- 
ger beruflich ein? Auch, 
oder vor allem, das ist ei- 
ne sinnvolle Anwendung. 
Sie führen die Lohn- und 
Gehaltsabrechnung, Ihre 
Lagerverwaltung, die Be- 
stellungen auf einem 

Commodore-Heimcom- 
puter durch? So spezielle 
Anwendungen wie die 
Berechnung der Statik 
von selbstgezimmerten 
Regalen, von Klimadia- 
grammen oder Vokabel- 
lernprogrammen für den 
Schulunterricht oder die 
Zinsberechnung bei Kre- 
diten sind ebenfalls The- 
men, die mehr als konkur- 
renzfähig sind. 

Uns ist die Anwendung 
des Monats 


han 


Schreiben Sie uns, was 
Sie mit Ihrem Computer 
machen: 

Redaktion 64er, Aktion: 
Anwendung des Monats, 
Hans-Pinsel-Str. 2, 8013 
I Haar bei München. d 
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Alles über Modems und Akustikkoppler 


In Amerika sind sie längst zum Alltag geworden; die Modems. Nun 
gibt es auch in Deutschland Akustikkoppler zu einem relativ günsti- 
gen Preis. Damit eröffnet sich auch für den Heimcomputer im Wohn- 


zimmer die faszinierende Welt der Datenfernübertragung. Wir sagen 


Ihnen, was Sie alles brauchen (Treibersoftware, Schnittstellen), wie 
Sie damit umgehen und welche (legalen) Möglichkeiten es bereits 
gibt, auf Mailboxen zuzugreifen. 





Programmiersprachen 
für den Commodore 64 


Das Angebot an Programmier- 
sprachen für den C 64 wird im- 
mer umfangreicher. Wir haben 
uns die beiden auf Mikrocompu- 
tern recht verbreiteten Sprachen 
Pascal und Forth einmal näher 
angesehen. Wie sieht die Kon- 
zeption dieser Sprachen aus, wie 
programmiertman damitund wie 
leistungsfähig sind sie? Neben 
diesen allgemeinen Betrachtun- 
gen stellen wir in mehreren Fol- 
gen vier Pascal-Compiler (Pascal 
64, Abacus-Pascal, Kmmm-Pas- 
cal) und zwei Forth-Versionen 
(Power-Forth und 64 Forth) für 
den © 64 vor. 
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Nicht jeder möchte einen Commodore-Drucker an seinen VC 20/C 64 


Adressenvergleich 
Commodore 64 — 
VC 20 


Ein leidiges Thema: Wie kann 
man Programme von demeinen 
Computer auf den anderen um- 
schreiben? Welche speziellen 
Systemeigenschaften sind zu 
beachten? Unser Adressenver- 
gleich zwischen dem Commo- 
dore 64 und dem »kleinen Bru- 
der« VC 20 bringt alle Informa- 
tionen. 





Centronics-Schnittstellen 





anschließen. Allerdings besitzen andere Drucker oftmals nur eine 
Centronics-Schnittstelle. Wir haben für Sie einige auf dem deutschen 
Markt erhältliche Interfaces getestet. Unser Test gibt Ihnen Entschei- 
dungshilfen, denn nicht jede Schnittstelle unterstützt alle Möglichkei- 
ten Ihres Epson-Druckers. Sie können gespannt sein. 


Schreibtisch« ist das erste einer 
Reihe von Anwenderprogram- 
men, die auch dem völligen Laien 
das Arbeiten mit dem Computer 
ermöglichen sollen. Statt der Ein- 
gabe mehr oder weniger abstrak- 
ter Befehlsfolgen wird »Magic 
Desk« durch das »Antippen« von 
Bildern per Joystick gesteuert. 
Unser Testbericht zeigt Leistungs- 
fähigkeit und Grenzen dieses 
Systems. 


Relative Dateien 


Die relative Datei bietet gegen- 
über der sequentiellen Datenspei- 
cherung einige Vorteile. Bei ihr 
spielt der Arbeitsspeicher keine 
große Rolle. Entscheidend ist hier 
die Diskettenspeicherkapazität. 
Sie bestimmt die maximale Größe 
der relativen Datei. Somit kann 
man auch große Datenmengen 
selbstmitdem VC20unddemC64 
verwalten. Wir zeigen, wie sich je- 
der seine relativen Dateien pro- 
grammieren kann. 


CP/M-Software 


Wie sieht die Praxis beim Einsatz 
von CP/M-Software auf dem C© 64 
aus? Lohnt sich das Übertragen 
von Programmen anderer CP/M- 
Computer und was kann man mit 
der Systemdiskette ailes anfan- 
gen? Wie gut ist zum Beispiel 
Wordstar auf dem C 64? 


Basic Bär 


Das Programm, das Programme 
schreibt. Was dieser Programm- 
generator leistet und wie komfor- 
tabel er sich handhaben läßt, ha- 
ben wir getestet. 

Listings 

— Anwendung des Monats: 

C 64 gießt Ihre Blumen 

— Listing des Monats: 

Der C 64 als Flipper 

— Kurvendiskussin mit Hi- 
Res-Grafik und Hardcopy auf dem 
VC 1526 

— Q-Bernd — fast besser als das 
Original 

— Autostart mit der Floppy in 
Theorie und Praxis 

— Programmverwaltung: Der ei- 
gene Programmkatalog 

— außerdem natürlich wieder vie- 
le Tips und Tricks für den C 64 und 
den VC 20 
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— TTaBert u 7 en ins: Kate 


Anschnallen, Commodore- und 


Texas Instruments-Freaks: 
laden POLE POSITION 1 


?& 1983 ATARI, Inc. : *© Taito America Corporation : *© Namco 1980 - °© Williams 1980 - °© Nintendo 1981, 1983 - ”© Namco 1982 : ®© Williams 1982 - ”© Namco 1982 -'°© Williams 1982 - "© Williams 1982 - '!®Namco America. 


© Namco 1982 


| 
ER | 









Im Formel-I-Tempo erobern die 
Superstars von ATARI jetzt noch 
mehr Commodore- und TI-Fans. 
Mit ATARISOFT, dem Programm, 
das die erfolgreichsten Arkaden- 
Hits als Heimversion ins Wohnzim- 
mer bringt. 

So können Sie jetzt Ihren Commo- 
dore 64, Ihren Commodore VC 20 
und Ihren TI 99/4A von Texas In- 
struments mit den spannenden 
Superhits von ATARI auf Hochtou- 
ren bringen. 

Vorneweg POLE POSITION! mit 
schweißtreibenden Rennduellen auf 


N heißer Asphaltpiste. Und CENTI- 
PEDE?JUNGLEHUNT’,PAC-MAN? 


DEFENDER? DONKEY KONG®® 
MS. PAC-MAN’, JOUST°* DIG 
DUG?. MOON PATROL" ROBO- 
TRON: 2084''* und GALAXIAN!* 
Allesamt voller Action. Allesamt er- 
hältlich, wo es auch ATARI gibt. Un 


# allesamt zum Verrücktwerden. 


Wir informieren Sie gerne ausführlich und kostenlos über 
ATARISOFT. Schicken Sie dazu einen mit DM 0,80 frankier- 
ten und mit Ihrer Adresse versehenen DIN C 4-Umschlag 
an: ATARI, ATARI-Club, Postfach 60 01 68, 2000 Hamburg 60. 
Anschriften von ATARI-Händlern in Ihrer Nähe erfahren 
Sie telefonisch von unseren ATARI-Verkaufsbüros: Büro 
Nord, Hamburg, 040/220 10 11, Büro West, Ratingen, 
02102/3 20 76 - 78, Büro Mitte, Eschborn, 06196/48 17 2% 
23. In der Schweiz: 8400 Winterthur, 052/23 6231..In 
Österreich: 1210 Wien, 222/30 15 62. 

* Donkey Kong: nicht für Commodore 64, Joust, Robotron: 
2084, Galaxian: nicht für TI I%/4A. 
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